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Section  1 
Summary 


1.0  Summary. 


Biodynamic  Research  Corporation  (BRC)  of  San  Antonio,  TX,  completed  an  SBIR  Phase 
I  project  to  port  the  Air  Force’s  Head-Spine  Model  (HSM)  to  a  PC-DOS  environment  and 
provide  a  recommended  roadmap  for  the  future  of  the  HSM.  The  impetus  for  this  project 
was  the  Air  Force’s  desire  to  have  a  software  tool  capable  of  modeling  the  internal  forces 
and  motions  of  the  human  head  and  spine  during  impulsive  acceleration  events, 
particularly  aircraft  ejections.  Although  models  exist  to  predict  the  gross  motion  of  a 
human  under  acceleration  loading  such  as  the  Air  Force  Articulated  Total  Body  (ATB) 
model,  Dynaman,  and  MADYMO,  the  Head-Spine  Model  (HSM)  is  the  only  tool  able  to 
provide  estimates  of  internal  forces.  For  this  reason,  the  HSM  could  be  valuable  to  the 
Air  Force  and  other  scientists  for  simulating  acceleration  environments. 

The  HSM  was  presented  to  BRC  as  archived  FORTRAN  files  that  had  been  unused  for 
nearly  8  years;  none  of  the  scientists  originally  involved  in  the  development  of  the  HSM 
were  available  for  consultation.  The  program,  originally  designed  to  run  on  a  Concurrent 
mainfi-ame  computer,  had  been  ported  to  a  Silicon  Graphics  Incorporated  (SGI)  Unix 
workstation.  BRC  was  able  to  successfully  compile  and  operate  the  model  on  an  SGI 
workstation  and  port  the  code  to  an  MS-DOS  compatible  PC  computer.  The  DOS  and 
Unix  versions  of  the  model  produced  essentially  the  same  output  for  three  different 
simulations. 

Although  the  code  transfer  was  successful,  BRC  discovered  several  “problems”  with  the 
Head-Spine  Model.  For  one,  the  code  was  written  in  such  a  way  that  it  required  both  an 
input  file  of  material  and  geometry  data  for  each  simulation  and  a  FORTRAN  source  file 
or  set  of  source  files  that  had  to  be  recompiled  for  each  simulation.  This  handicap  made 
it  difficult  to  change  the  characteristics  of  a  simulation  using  the  HSM.  The  model  was 
also  coded  so  that  it  was  difficult  to  understand,  debug,  and  modify.  There  are  several 
areas  in  the  model  code  that  BRC  suspects  are  incorrectly  implemented,  however,  there  is 
no  way  to  confirm  this  because  of  the  lack  of  comments  and  documentation.  An  attempt 
was  made  to  restructure  some  of  the  FORTRAN  model  code  in  modem  stmctured  Fortran 
77  code. 

To  assist  in  understanding  the  input  and  output  data  for  an  HSM  simulation,  BRC 
developed  a  custom  software  program  that  reads  the  input  file  and  displays  it  for 
modification,  runs  the  HSM  model,  and  reads  the  output  data  and  allows  it  to  be  graphed 
and  printed.  Unfortunately,  as  noted  earlier,  the  HSM  still  requires  recompilation. 

It  is  BRC’s  belief  that  the  material  and  geometry  data  of  the  HSM  model,  as  well  as 
some  of  the  model  algorithms  and  logic,  can  best  be  used  by  recreating  the  model  in  an 
object-oriented  software  language  such  as  C++  or  Fortran  90.  The  cost  and  effort 
required  to  understand  the  current  version,  debug  coding  and  algorithm  errors,  and 
document  the  code  is  far  greater  than  simply  extracting  the  useful  data  and  starting  over. 

A  roadmap  for  developing  the  PC-based  HSM  is  presented  at  the  end  of  this  report. 

Figure  1-1  summarizes  the  Phase  I  Results. 
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Figure  1-1  Summary  of  Results 


Compiled  and  is  executable  on  a  PC  and  Silicon  Graphics. 
Nearly  identical  results  on  a  PC  and  SGI. 

Three  simulations  conducted. 


Graphical  user  interface  created  for  changing  input  file,  riirming 
the  model,  and  displaying  outputs. 

Structured  Fortran  techniques  incorporated  into  code. 

Apparent  errors  found  in  the  original  code. 


•  Difficult  to  validate  because  of  the  number  of  degrees  of 
freedom  and  many  parameters. 

•  Is  the  only  model  that  provides  internal  force  and  motion 
computations. 

•  The  Head-Spine  Model  be  re-coded  with  a  modem,  object- 
oriented  approach. 

•  Use  existing  material  and  geometry  data  from  the  original  HSM. 

•  Validate  the  model  for  certain  input  forces  and  accelerations. 

•  Commercialize  the  use  of  the  model. 
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Section  2 


Introduction 


2.0  Introduction. 


This  final  report  concludes  an  effort  by  Biodynamic  Research  Corporation  (BRC)  of  San 
Antonio,  TX,  to  port  the  Air  Force  Head-Spine  Model  to  a  PC-DOS  computer  and 
conduct  a  feasibility  study  for  making  the  HSM  a  useful  desktop  tool.  The  effort  was 
conducted  under  Contract  F41624-95-C-6003  through  the  Armstrong  Laboratory  and  is 
entitled  “Feasibility  Study  for  a  Personal-Computer  Based  Head-Spine  Model.” 

This  effort  emanates  from  the  Air  Force’s  desire  to  develop  a  mathematical  model  of  the 
internal  forces  and  motions  that  occur  within  the  human  head  and  spine  during  impulsive 
acceleration  events  and  aircraft  ejections  in  particular.  Existing  tools  such  as  the 
Articulated  Total  Body  (ATB)  model,  Dynaman,  and  MADYMO  are  able  to  simulate  a 
human’s  gross  motion  to  forces  and  accelerations,  but  are  either  unable  or  invalidated  for 
computing  the  internal  dynamic  and  kinematic  quantities.  These  internal  forces  and 
stresses  can  be  used  as  predictors  for  injury.  A  validated  HSM  would  be  a  useful  tool  for 
Air  Force  and  commercial  researchers  and  scientists  in  a  variety  of  fields. 

The  specific  objectives  of  the  Phase  I  effort  are  listed  below: 

•  To  port  the  HSM  from  a  Silicon  Graphics  Unix  computer  to  a  desktop  PC- 
compatible  computer. 

•  To  conduct  a  feasibility  analysis  of  improving  the  software  implementation  of  the 
model,  adding  a  user-interface,  and  documenting  the  model. 

•  To  evaluate  the  merits  and  limitations  of  the  model,  suggest  ways  to  enhance  the 
realism  of  the  model  or  decrease  it’s  complexity,  and  identify  a  protocol  for 
validating  the  model  operation  under  certain  conditions. 

BRC  performed  a  majority  of  the  work  for  this  contract.  Systems  Research  Laboratory 
(SRL)  of  San  Antonio,  TX,  assisted  with  some  of  the  analysis  to  identify  an  ideal  user 
interface  for  the  model. 

This  final  report  documents  and  summarizes  the  work  generally  according  to  the 
objectives  outlined  above.  The  layout  of  the  report  is  summarized  in  Figure  2-1 . 
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Figure  2-1  The  HSM  Final  Report 


Section  1 .0  -  Summery 

-  Succesfully  ported  HSM  to  a  PC-based  computer 

-  Made  enhancements  to  the  HSM  code 

-  Created  a  graphical  pre-and  post-processor 

-  Created  a  plan  for  Phase  II  and  commercialization 
of  the  HSM 


Section  2.0  -  Introduction 


BRC  used  subcontractor  SRL  for  some  of  the 
project 

Three  objectives  for  the  Phase  I 


section  3.0  -  Technical  Background  and 

_ Literature  Review _ 

HSM  created  and  improved  during  the  70*s  and 
80's 

Program  v/ritten  in  Fortran  IV  for  Concurrent 
mainframe 


Section  4.0  -  Creating  a  PC-Version  of  the  HSM 

-  The  HSM  not  used  since  1 987 

-  The  code  is  difficult  to  understand  and  modify 

-  BRC  made  structured  programming  improvements 

-  Three  simulations  were  conducted 


Section  5  -  A  Graphical  User  Interface 


-  Reads  input  files  and  allows  them  to  be  modified 

-  Allows  output  to  be  plotted 


Section  6  -  Validity  of  the  Head-Spine  Model 

-  Discussion  of  lumped  parameter  vs.  finite  element 
models 

-  Discussion  of  HSM  validation 


Section  7-  Recomendations  for  the  HSM 
-  A  roadmap  for  Phase  II  and  commercialization 


Section  8-  References 


Appendices-  A,  B,  and  C 


HSM  code  for  a  PC 
User  interface  code 
Inventory  of  files 
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Section  3 


Technical  Background  and  Literature  Review 


3.0  Technical  Background  and  Literature  Review. 

The  Air  Force  Head-Spine  Model  (HSM)  was  initially  developed  for  the  purpose  of 
modeling  pilot  ejections  from  aircraft.  In  1973-5,  a  three-dimensional  model  of  the 
human  spine  and  head  was  created  at  the  University  of  Illinois,  sponsored  by  the  Air 
Force  Aerospace  Medical  Research  Laboratory.'  The  model  consists  of  rigid  bodies, 
which  represent  skeletal  segments,  and  deformable  elements,  which  represent  ligaments, 
cartilaginous  joints,  viscera,  and  connective  tissues.  The  model  can  be  separated  into 
sub-models  to  study  the  response  of  different  body  segments  to  accelerations  and  loads. 
The  original  HSM  is  theoretically  sufficiently  general  to  be  applicable  to  other 
acceleration  environments.  A  technique  for  modeling  other  aspects  of  the  environment, 
such  as  seat  geometry  and  restraint  harness,  are  also  considered  in  the  HSM.  Output  of 
the  model  includes  the  forces  and  moments  acting  on  the  elements  and  the  kinematics  of 
the  model  elements. 

The  HSM  was  refined  in  1976-7  during  a  second  Air  Force  project.^  During  this  project, 
four  different  versions  of  the  model  were  created  ranging  from  32  to  252  degrees  of 
freedom.  The  researchers  also  attempted  to  refine  and  validate  the  model  using  two 
methods  —  by  comparing  the  model  frequency  response  to  the  experimentally  determined 
frequency  response  of  humans  to  vertical  excitation  and  by  creating  head-spine  models 
for  other  primates  and  comparing  the  model  output  to  experimental  data.  The  work  with 
the  primate  model  also  provided  a  methodology  for  scaling  dynamic  response  and  injury 
data  between  the  primates  and  humans.  Finally,  a  spinal  injury  criteria  were  developed 
that  use  the  computed  stress  in  vertebral  bodies  to  predict  the  likelihood  of  vertebral  body 
failure. 

A  database  of  head  and  cervical  spine  geometry  and  stiffness  data  was  collected  in  a  third 
project  from  1978-80.^  The  geometry  of  the  vertebrae  and  points  of  attachment  of 
muscles,  discs,  and  ligaments  were  obtained.  Stiffness  data  were  obtained  or  estimated 
from  the  literature.  Inertia  values  were  developed  by  approximating  the  geometry  of  the 
vertebrae  and  applying  a  uniform  density.  Simulations  with  the  model  were  in  relatively 
good  agreement  with  experimental  data  for  the  first  1 50  milliseconds  of  response.  After 
this  time,  the  model  output  showed  significant  discrepancies  which  the  authors  attributed 
to  poor  modeling  of  the  major  muscles.  Although  this  project  focused  oh  the  head  and 
cervical  spine,  it  used  portions  of  code  from  the  entire  HSM  model. 

One  final  revision  to  the  Head-Spine  Model  was  an  effort  from  1980-4.“*  During  this 
project,  a  model  of  the  diaphragm  was  incorporated  into  the  HSM  that  better  represented 
the  vertical  load  path  through  the  viscera,  abdomen,  and  rib-cage  region.  Additional 
work  was  done  to  create  a  proposed  injury  criterion  for  the  cervical  spine.  Simulations 
with  the  head  and  cervical  spine  model  in  the  fore-aft  and  side-to-side  directions  showed 
a  good  agreement  to  experimental  data,  which  led  the  authors  to  believe  the  model  was  a 
viable  tool  for  prediction  of  head-cervical  spine  kinematics  in  three  dimensions. 

Figure  3-1  summarizes  our  literature  search  efforts  and  results. 
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Figure  3-1  Literature  Search  Summa 


Lilejpatare  Topics 


Subject  Areas: 

•  Head/neck/spine  modeling. 

•  Injury  modeling  and  criteria. 

•  Dynamic  response  of  the  head/neck/spine. 

•  Air  Force  Head-Spine  Model. 

Authors; 

•  Abe  Privitzer 

•  Jeff  Settecerri 

•  T.  Belytschko 
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1 .  “A  Model  for  Analytic  Investigation  of  Three-Dimensional  Head-Spine  Dynamics,” 
[Ref  1].  Development  of  the  original  Head-Spine  Model  and  techniques  for  modeling 
environment,  restraints,  and  seats. 

2.  “Refinement  and  Validation  of  a  Three-Dimensional  Head-Spine  Model,”  [Ref  2]. 
Refinement  and  partial  validation  of  the  Head-Spine  Model. 

3.  “A  Dynamic  Model  of  the  Cervical  Spine’and  Head,”  [Ref  3].  Discussion  of  geometry 
and  material  data  for  the  HSM  and  simulations  with  the  cervical  spine  and  head  portion 
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load  path  and  spinal  injury  criteria  into  the  model. 

5.  “A  Biomechanical  Model  of  the  Human  Spinal  System,”  [Ref  6].  Describes  a  finite- 
element  model  of  the  spinal  column,  ligaments,  muscles,  rib-cage,  abdomen,  and  part 
of  the  pelvis. 

6.  “Tolerance  of  the  Human  Cervical  Spine  to  High  Acceleration:  A  Modeling 
Approach,”  [Ref  7].  Development  of  and  simulations  with  a  sagittal  plane  model  of 
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joints. 
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Section  4 


Porting  the  Code  to  a  PC 


4.0  Creating  a  PC  Version  of  the  Head-Spine  Model. 

The  Head-Spine  Model  was  recompiled  on  a  PC-DOS  computer  and  modified  so  that  it 
could  perform  three  simulations  with  identical  outputs  to  the  original  Unix  version  of  the 
model.  When  first  presented  to  BRC,  the  HSM  model  had  been  virtually  unused  since 
1 987.  The  materials  that  BRC  obtained  and  the  status  of  the  HSM  model  before  this 
project  are  described  in  detail  in  Section  4.1. 

BRC  had  little  difficulty  in  porting  the  HSM  to  both  a  PC-DOS  computer  and  an  SGI 
Indigo  computer  running  Unix.  The  various  minor  problems  encountered  are  detailed  in 
Section  4.2.  An  audit  was  conducted  of  the  output  produced  by  the  new  executables  and 
the  archived  output;  the  PC-DOS  version  of  the  model  was  found,  with  minor  differences, 
to  compute  the  same  results  as  the  archived  executables. 

Although  porting  the  code  proved  fairly  easy,  the  HSM  code  itself  was  difficult  to 
understand,  debug,  and  modify.  Section  4.3  discusses  some  of  the  problems  encountered, 
which  were  a  combination  of  FORTRAN  IV  constraints  and  poor  programming 
techniques.  Our  efforts  to  improve  the  coding  of  the  model  are  described  in  Section  4.4. 
Several  elements  of  structured  programming  were  incorporated  into  the  code,  including 
DO... END  DO  statements,  BLOCK  IF  structures,  and  better  formatting. 

Finally,  Section  4.5  describes  the  simulations  that  BRC  was  able  to  conduct  with  the 
model.  We  were  able  to  suecessfully  execute  only  three  simulations,  two  of  which  were 
very  simple.  It  was  discovered  that  HSM  simulations  required  both  a  special  input  file  of 
material  and  model  geometry  data,  as  well  as  a  unique  subroutine  or  set  of  subroutines 
that  had  to  be  compiled  with  the  remainder  of  the  model.  Although  other  input  files  were 
found  in  the  archived  code,  BRC  was  unable  to  make  these  simulations  execute  properly. 
Figure  4-1  presents  an  overview  of  the  contents  of  Section  4. 
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Figure  4-1  Creating  a  PC  Version  of  the  HSM 


Creating  a  PC  Version 
the  Head-Spine  Model 


Section  4.1  —  Status  of  the  HSM  in  May,  1995 

Section  4.2  —  Porting  the  Model  to  an 
SGI  and  PC-DOS 

Section  4.3  —  Evaluation  of  HSM  Code 
Section  4.4  —  Enhancements  to  the  HSM 

Section  4.5  —  Head-Spine  Model  Simulations 
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4.1  Status  of  the  Model  in  May,  1995. 


Before  the  start  of  this  Phase  I  SBIR,  the  Head-Spine  Model  software  and  documentation 
had  been  virtually  unused  since  1987.  In  1987,  a  document  titled  “Directions/Overview 
for  Running  the  Head  Spine  Model”  was  created  at  WPAFB  that  summarized  the  status 
of  the  model.  This  document,  along  with  the  user’s  manual  for  the  model  and  various 
technical  reports,  provided  a  foundation  for  BRC  to  trace  the  model  history  and  become 
familiar  with  the  model. 

BRC  was  presented  with  the  documentation  and  archived  code  in  June  of  1995.  All  of 
the  materials  received  fi'om  the  Air  Force  have  been  recorded  and  an  inventory  of  files  is 
attached  in  Appendix  C  and  a  summary  of  other  materials  is  shown  in  Figure  4-2.  The 
materials  include  program  listings,  technical  reports,  sample  runs,  and  magnetic  media. 
The  files  on  the  magnetic  media  included  the  most  recent  version  (1987)  of  the  HSM 
software  for  use  on  a  Silicon  Graphics  workstation  and  two  archived  directories  of 
material. 

BRC  conducted  a  line-by-line  comparison  of  the  magnetic  media  files  and  the  printed 
code  that  was  reported  to  be  the  “most  current  version  of  the  HSM”  to  ensure  that  the 
proper  version  of  the  software  was  analyzed.  A  few  minor  discrepancies  were 
discovered;  however,  the  code  audit  confirmed  that  BRC  indeed  had  the  source  code 
corresponding  to  the  “most  current  version  of  the  HSM.” 

The  code  provided  to  BRC  included  an  executable  of  the  model  for  SGI  Unix.  It  was 
possible  to  execute  this  file  without  modification  for  the  “hyb2.inp”  input  file,  which 
apparently  corresponded  to  a  Hybrid  II  Anthropomorphic  Mannikin  Head-Neck 
pendulum  test.  Results  of  this  simulation  are  discussed  in  Section  4.4. 
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Figure  4-2  Inventory  List 


•  Program  listing  2/1 7/8 1 

•  Plotting  program  source  1 1/9/77 

•  Sample  run  8/6/87  head  &  cervical  spine,  14  spine  input  accel.  Profile 

•  Sample  run  8/19/87  isolated  ligamentous  spine  model  14  G,  100  ms 

•  Sample  run  8/6/87  simplified  based  on  SSM  deformations 

•  Sample  run  9/19/83  Sikorsky  IV  003  w/  injury  criteria 

•  Sample  run  12/7/81  baboon  model  IB 

•  Sample  run  1 1/18/80  bird  strike  simulation 

•  Sample  run  GHSM  rectangular  arc  profile  simulation 

•  Energy  absorbing  seat  design 

•  Sample  run  5/12/83  axial  load  uniform  pressure  distribution 

•  Fastplot  listing  and  instructions  by  M.  Hoffman 

•  “Head  Spine  Model  Northwestern  Version  1978  Input  File  Description” 

•  “Head  Spine  Model  Input  File  Description  1979" 

•  “Dynamic  Distribution  of  Stress  and  Injury  Likelihood  in  the  Spine”,  by  M.  Hoffman, 
1983  (2  copies) 

•  Brown  binder  -  compilation  of  materials 

•  HSM  user  manual  by  L.  Schwer  and  G.  Belytschko,  modified  by  M.  Hoffman  4/11/77 
(2  copies) 

•  Color  coding  for  HSM,  user  guide  for  output,  by  M.  Hoffinan  4/1 1/77  (2  copies) 

•  Tech  paper  AF  binder,  “Head  Spine  Structure  Modeling:  July  1985  Enhancement  to 
Secondary  by  T.  Belyschko,  M.  Rencis,  and  J.  Williams 

•  HSM  user  guide  May  1985  by  SRL 

•  Sample  run  3/12/82,  SAP  4  head  injury  model,  1500  N  vertical  load 

•  HSM  source  code  listing  10/15/84 

•  Fastplot  source  code  file  and  variations  11/83 

•  HSM  source  code  listing  8/24/84  and  miscellaneous  plots 

•  HSM  source  code  for  subroutines:  Freefds,  Injcri,  Spinif,  Sliders,  Baboon,  Splmfit 

•  Sample  run  CR24B  1984  Pre-Crest  simulations 

•  Magnetic  tape  of  most  current  HSM  files  and  two  archived  directories  of  older  HSM 
files. 
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4.2  Porting  the  HSM  Code  to  an  SGI  Indigo  and  PC-DOS  Computer. 

An  executable  of  the  HSM  code  was  created  for  an  SGI  Indigo  workstation  and  a  PC- 
DOS  computer.  A  similar  procedure  was  followed  on  both  platforms  to  create  the 
executables.  First,  subroutines  that  performed  no  function  or  were  involved  in  printing  or 
plotting  to  an  actual  device  were  removed.  This  eliminated  many  “unsatisfied  external 
references”  errors  issued  by  the  compilers.  Subroutines  were  then  added  and  debugged 
until  there  were  no  unsatisfied  externals.  Most  “bugs”  were  comprised  of  illegal 
characters  and  minor  syntax  errors  which  were  easily  corrected.  The  final  compilation 
was  successful,  but  produced  “run-time  errors”  which  were  systematically  investigated 
and  eliminated  until  a  program  was  produced  which  would  execute  with  the  input  file 
“hyb2.inp.”  The  output  file  fi-om  the  PC  was  compared  to  an  existing  output  file  for  the 
"hyb2.inp"  which  ran  on  the  Silicon  Graphics  computer  via  an  executable  which  was 
provided  in  the  software  archives. 

The  PC  version  of  the  model  was  compiled  on  an  IBM  compatible  PC  running  Microsoft 
Windows  3.1  using  Microsoft  FORTRAN  Powerstation  Professional  Development 
System  v  1 .0.  The  SGI  version  of  the  model  was  compiled  on  a  Silicon  Graphics  XS24 
Indigo  running  IRIX  Unix  v  5.3  and  a  FORTRAN  77  v  4.0.2  compiler. 

The  process  of  porting  the  HSM  code  to  a  PC  and  verifying  proper  execution  is 
summarized  in  Figure  4-3.  The  modifications  made  to  the  code  at  this  point  of  the  project 
were  only  those  necessary  to  make  the  model  execute;  a  discussion  of  the  general 
condition  of  the  code  is  presented  in  Section  4.3.  The  final  code  for  the  PC-version  of  the 
Fortran  code  is  listed  in  Appendix  A. 
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Figure  4-3  Process  of  Porting  HSM  Code 
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4.3  Evaluation  of  HSM  Code. 


The  HSM  code  was  originally  written  in  FORTRAN  IV  and  is,  in  general,  difficult  to 
understand,  debug,  and  maintain.  When  presented  to  BRC,  the  HSM  code  had  many 
problems,  some  typical  of  FORTRAN  code,  such  as: 

•  The  use  of  GOTO  statements,  which  obfuscate  the  flow  of  the  program.  There 
were  many  logical  loops  and  branch  statements  that  relied  on  GOTO’s  to  redirect 
program  flow. 

•  A  lack  of  substantive  comments.  There  were  virtually  no  useful,  descriptive 
comments  in  the  code. 

•  A  confusing  use  of  COMMON  blocks,  which  sometimes  used  different  variable 
names  in  different  subroutines. 

•  Overwriting  of  memory  allocated  for  an  array.  While  this  technique  can  be  used 
to  minimize  the  use  of  memory,  it  appears  that  data  was  being  overwritten  outside 
of  the  array  bounds,  which  may  have  caused  erroneous  results. 

•  Numerous  calls  to  blank  “do-nothing”  subroutines,  or  subroutines  that  involved 
plotting  results  on  antiquated  devices. 

•  Subroutines  that  contained  a  significant  amount  of  code,  but  were  not  called 
because  of  program  redirection  before  the  subroutine  calls. 

•  Subroutines  that  were  passed  variables  that  were  never  used. 

•  A  lack  of  indenting  and  spacing  in  the  code,  which  would  have  allowed  a  more 
intuitive  understanding  of  program  flow. 

Some  of  the  HSM  problems  were  simply  due  to  the  nature  of  early  FORTRAN.  For 
example,  constraints  in  formatting  and  a  lack  of  structured  programming  statements 
resulted  in  some  of  the  problems  above.  The  lack  of  comments,  questionable  use  of  array 
memory,  and  substantial  numbers  of  extraneous  variables  and  subroutines  were  indicative 
of  the  programming  style.  Some  examples  of  poor  coding  techniques  are  displayed  in 
Figure  4-4. 

The  nature  of  the  HSM  code  made  it  very  difficult  to  logically  trace  program  flow.  An 
effort  was  made  to  update  the  code,  both  to  improve  the  readability  and  better  understand 
the  logic  flow.  These  efforts  are  described  in  Section  4.4. 
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Figure  4-4  Examples  of  HSM  Code 
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4.4  Head-Spine  Model  Enhancements. 

BRC  improved  the  structure  of  the  model  FORTRAN  code  and  created  an  intuitive  user 
interface  for  modifying  the  HSM  input  files.  Some  aspects  of  structured  FORTRAN 
were  incorporated  into  the  Head-Spine  Model  code  to  help  better  understand  the  flow  of 
the  program. 

As  was  noted  in  Section  4.3,  the  HSM  code  was  presented  in  a  way  that  made  it  difficult 
to  understand  and  modify.  BRC  spent  a  significant  amount  of  time  improving  the  HSM 
code  so  as  to  better  understand  the  flow  and  enhance  the  readability  for  the  future.  One 
of  the  first  improvements  was  to  eliminate  calls  to  blank  subroutines  and  subroutines 
involved  in  plotting  output.  Presumably,  the  blank  subroutines  represented  areas  of 
expansion  for  the  model  that  were  never  undertaken.  Numerous  variables  that  were 
passed  into  subroutines  but  not  used  were  also  removed.  BRC  took  advantage  of 
compiler  INCLUDE  statements  to  replace  many  of  the  COMMON  blocks  which,  because 
of  their  length,  distracted  the  reader  from  the  function  of  the  subroutines. 

BRC  also  implemented  some  features  of  structured  programming.  Branch  IF  statements 
that  relied  on  GOTO’s  for  redirection  were  changed  to  BLOCK  IF  statements.  In  some 
cases  this  proved  impossible  without  rewriting  the  entire  subroutine.  DO. ..END  DO 
statements  were  used  to  replace  DO. ..CONTINUE  statements.  More  liberal  use  of 
indenting  and  spacing  of  code  was  included  to  make  the  program  more  readable.  The  use 
of  line  numbers  was  eliminated  whenever  possible. 

No  attempt  was  made  to  correct  several  arrays  that  were  suspected  of  being  accessed 
improperly.  Making  these  changes  would  have  prevented  us  from  understanding  the 
effect  of  other  modifications  on  the  code,  since  the  output  of  the  program  would  then  be 
different.  Several  calls  to  subroutines  that  were  never  used  because  of  logic  preceding  the 
call  to  the  subroutine  were  left  in  place.  It  is  suspected  that  these  subroutines  might  be 
required  for  other  simulations,  although  none  of  the  simulations  BRC  made  operational 
required  them. 

Examples  of  typical  HSM  code  segments  before  and  after  the  Phase  I  project  are  shown 
in  Figure  4-5. 
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Figure  4-5  Examples  of  Modified  Code 


Old  Segment  of  Code 


New  Segment  of  Code 


191=1+1 

IF(I.GT.NEQ)  GO  TO  21 
IF  (SMASS(I).EQ.O.)  GO  TO  20 
XI  (l)=XO(l)+V(l)*DELT+C1  *AO(l) 
GO  TO  19 

20  1=1+5 
GO  TO  19 

21  CONTINUE 


191=1+1 

IF  (I.LE.NEQ)  THEN 
IF  (SMASS(I).NE.O.)  THEN 
X1(l)=XO(l)+V(l)*DELT+C1*AO(l) 
GOTO  19 
END  IF 
1=1+5 

GOTO  19 
END  IF 


Old  Segment  of  Code  New  Segment  of  Code 


D0  9  JE=1,NUMEL 
ISEC=IX(11,JE) 

IF(NOPT.EQ.6)  IADD=5 
IF  (NOPT.NE.2)  GO  TO  5 
11=1 

IF  (ISEC.NE.O)  I1=IPT(ISEC) 
IADD=41+6*I1 

IF  (KONTRL(5).GT.O)  IADD=41+8*I1 

5  INDEX{JE+1)=INDEX(JE)+IADD 
IND=INDEX(JE)-1 

IF  (NOPT.NE.2)  GO  TO  7 
IF  (ISEC.EQ.O)  GO  TO  7 
IF  (KONTRL(5).GT.O)  KK=KK-I2 
D0  6  M=1,I2 
STRS{KK)=E(3.MTYP) 

6  KK=KK-1 
7  CONTINUE 


DOJE=1,NELE 

ISEC=IX(11,JE) 

IF  (NOPT.EQ.2)  THEN 
11=1 

IF  (ISEC.NE.O)  I1=IPT(ISEC) 

I  ADD=4 1+6*11 

IF  (KONTRL(5).GT.O)  IADD=41+8*I1 
END  IF 

INDEX(JE+1)=INDEX(JE)+IADD 

IND=INDEX(JE)-1 

IF  (NOPT.EQ.2  .OR.  ISEC.NE.O)  THEN 
IF  (KONTRL(5).GT.O)  KK=KK-I2 
DO  M=1,I2 

STRS(KK)=E(3,MTYP) 

KK=KK-t 
END  DO 
END  IF 
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4.5  Operational  HSM  Simulations. 


As  described  above,  BRC  was  successful  in  porting  the  full  HSM  model  to  the  PC 
environment.  Unfortunately,  as  explained  below,  the  HSM  is  not  general.  Only  three 
simulations  were  successfully  compiled  and  executed:  two  Hybrid  II  Anthropomorphic 
Test  Device  (ATD)  Head-Neck  simulations  and  one  Crest  Ejection  Seat  simulation.  The 
“Main”  program  for  the  version  of  the  HSM  which  was  successfully  executed  was 
“WHAM3.FOR.”  WHAM3.FOR,  was  compiled  on  an  IBM  Compatible  PC  (Gateway 
2000  486-DX2)  under  Microsoft  FORTRAN  Powerstation  Professional  Development 
System  vl  .0.  Software  and  run-time  bugs  were  eliminated  until  we  produced  a  program 
which  would  execute  with  the  input  file  “hyb2.inp”. 

The  output  file  produced  by  the  PC  executable  was  compared  to  an  existing  output  file 
for  the  "hyb2.inp"  which  ran  on  the  Silicon  Graphics  Incorporated  (SGI)  computer  via  an 
executable  which  was  provided  in  the  software  archives.  There  were  only  very  small 
differences  in  the  numerical  values  output  by  each  computer.  The  largest  errors  found 
were  on  the  order  of  10'^  Figure  4-6  is  a  plot  of  the  difference  in  the  output  position  of  a 
point  on  the  spine  computed  on  a  PC  and  that  of  the  same  point  computed  on  an 
execution  on  the  SGI  versus  time.  There  was  no  way  to  tell  which  of  the  two  solutions 
were  most  accurate,  but  it  was  assumed  that  the  SGI  was  the  more  accurate  because  of  its 
increased  precision. 


Figure  4-6  Error  Time  History 


Comparison  of  Unix  and  DOS  Output 
forHYB2  Simuiation 
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Most  other  outputs  were  either  matched  exactly  or  were  off  by  a  similar  differences  in 
values.  Similar  results  were  obtained  from  the  input  file  “hyb22.inp” 

The  CREST  ejection  seat  simulation  was  compared  to  archived  outputs  and  confirmed 
that  the  executable  was  operating  properly.  The  same  input  files  were  also  executed  on  a 
Gateway  2000  P5-90  Pentium  PC  and  results  were  in  agreement  with  the  archived  and 
SGI  outputs.  Surprisingly,  the  CREST  simulation  took  only  17  minutes  to  execute  on  a 
Pentium  and  42  minutes  on  the  SGI  XS24.  The  run  time  for  a  Gateway  2000  DX2-66V 
(80486  DX2-66MHz)  was  1  hour  30  minutes. 

During  the  process  of  trying  to  duplicate  archived  simulations  it  was  discovered  that 
WHAM3.FOR  had  to  be  recompiled  with  different  subroutine  modules  when  the  object 
being  simulated  was  changed.  This  problem  has  been  traced  to  a  subroutine 
FREED.FOR  which  is  unique  to  the  problem  at  hand  (it  apparently  sets  initial  conditions 
on  the  model).  Thus,  it  appears  that  a  different,  custom  FREED.FOR  subroutine  must  be 
created  for  each  problem  type  and  compiled  with  the  remainder  of  the  source  code  to 
build  an  executable  which  will  properly  compute  the  desired  model  solution.  This  is  not 
a  good  programming  technique.  The  program  could  be  made  more  general  by  rewriting 
the  appropriate  program  sections.  Although  we  examined  both  the  code  and  the  available 
documentation,  BRC  was  unable  to  completely  discover  how  the  FREED.FOR 
subroutine  is  employed  within  the  larger  program  to  set  initial  conditions  nor  was  it  clear 
how  a  custom  FREED.FOR  subprogram  is  designed. 
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Section  5 


A  New  Method  for  Creating  Input  Files 


5.0  Design  of  a  New  User  Interface  for  the  HSM. 

A  prototypical  intuitive  graphical  interface  was  developed  by  BRC  to  allow  the 
modification  of  HSM  simulation  input  files  and  the  display  of  HSM  simulation  output. 
The  pre-processor/post-processor  module  is  written  in  Visual  Basic  for  Windows  Version 
3.0  and  uses  three  third  party  custom  controls:  IndexTab  5.0  for  tabbed  screens, 

TrueGrid  Pro  2. 1  for  data  editing,  and  Chart  FX  3.0  for  the  plotting  capabilities.  With 
this  interface  module  the  user  has  options  to  view,  edit,  and  save  input  files,  execute  the 
HSM  program,  and  view  plots  based  on  the  output  of  the  HSM  program.  The  installation 
instructions  for  the  User  Interface  Module  and  a  listing  of  the  source  code  can  be  found  in 
Appendix  B. 

The  menu  for  the  User  Interface  has  three  options:  File,  Solve,  and  Plot.  The  File  Menu 
provides  the  user  with  the  options  to  open  and  save  input  files.  Additionally,  the  file 
menu  can  be  used  to  exit  the  program.  To  open  an  input  file,  select  the  Open  option  from 
the  File  menu  as  shown  in  Figure  5-1.  The  Open  option  brings  up  a  dialog  box  that 
assists  the  user  in  finding  and  loading  an  input  file.  Once  an  input  file  is  opened,  the  user 
can  use  the  tabs  to  view  the  data.  Some  of  the  data  lines  have  single  records  in  the  input 
file  and  others  have  multiple  lines.  The  tabbed  screens  display  field  edit  boxes  for  single 
record  data  lines  and  grids  for  multiple  record  data  lines.  Figure  5-1,  which  shows  the 
Parameter  Data  Line,  demonstrates  a  screen  with  edit  boxes.  A  screen  with  a  grid  is 
presented  in  Figure  5-2  which  displays  the  screen  for  the  ICIF  Data  Lines.  Subroutine 
ICIF  apparently  takes  care  of  converting  the  input  forcing  function  to  the  integration 
routine  time  scale  and  integrating  accelerations  and  velocities  as  necessary  to  obtain  a 
displacement  versus  time  forcing  function  for  input  to  the  model. 

The  Save  option  from  the  File  menu  allows  the  user  to  save  a  variation  of  the  original 
input  file  after  editing  the  data.  Like  the  Open  option,  the  Save  option  brings  up  a  dialog 
box  that  enables  the  user  to  select  or  specify  a  file  name  to  use  in  saving  the  file.  The 
data  will  be  saved  in  the  format  which  is  read  by  the  HSM  program.  Note  that  modifying 
and  saving  the  input  data  is  not  enough  to  run  a  new  HSM  simulation  ~  several  files  of 
the  model  also  must  be  recompiled,  as  was  noted  in  Section  4. 

When  the  Solve  option  from  the  menu  is  selected,  the  current  input  file  is  copied  to  a  file 
named  “hsm.inp”  and  is  then  used  as  input  to  the  HSM  program  which  is  run  in  a  DOS 
shell.  After  the  HSM  program  completes  its  execution,  the  user  can  select  the  Plot  menu 
option  and  view  the  plots  generated  from  the  output  file.  The  plot  display  has  a  button 
labeled  “Next”  which  the  user  can  use  to  move  to  the  next  plot.  When  the  last  plot  is 
being  viewed,  the  button  caption  changes  to  “Done,”  and  when  pressed,  the  plot  screen  is 
removed.  A  screen  display  of  an  output  file  plot  is  shown  in  Figure  5-3. 
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Section  6 


Validity  of  the  Head-Spine  Model 


6.0  Head-Spine  Model  Validity. 

Questions  regarding  the  validity  of  a  mathematical  model  naturally  arise  and  should  be 
addressed  in  the  conceptual  phase  of  creating  the  model.  Usually  there  is  some 
preconceived  notion  that  the  model  can  be  validated  by  comparing  the  model’s 
predictions  to  actual  data  collected  on  the  real  world  entity  being  simulated.  The  true 
value  of  a  mathematical  model  lies  in  its  ability  to  aid  in  analysis  or  design  of  a  process 
or  family  of  processes  under  study.  In  fact,  in  the  opinion  of  the  authors,  the  creation  of 
the  model  should  not  be  the  objective  at  all!  Nevertheless,  the  developers  of  the  HSM 
stated,'  “The  principal  objective  of  this  investigation  is  the  development  of  a  three 
dimensional,  discrete  model  of  the  spine  and  head.”  Later  in  their  discussion,  they 
implied  that  the  HSM  would  be  used  operationally  “to  investigate  the  behavior  of  the 
spine”  in  situations  “of  practical  importance.”'  Thus,  despite  the  stated  objective,  it  does 
appear  that  the  developers  of  the  original  HSM  recognized  and  understood  the  importance 
of  operational  validation  in  establishing  the  credibility  of  the  model  and  its  use  for 
predictive  simulation.  Unfortunately,  their  development  plan  was  not  documented  in  the 
HSM  Technical  Reports  (TRs),'  ''  nor  were  their  validation  studies  extensive. 

A  review  of  the  TRs  indicates  that  the  HSM  was  developed  using  generally  accepted 
methods  employed  in  the  late  1970's  and  early  1980's.  Unfortimately,  the  HSM  and 
similar  models  of  that  time  were  developed  in  an  academic  atmosphere  without  the 
benefit  of  a  rigorous  development  methodology.  It  appears  to  BRC  that  more  time  and 
resources  were  devoted  to  the  actual  construction  and  coding  of  the  model  than  to  its 
testing  and  validation.  There  is  extensive  documentation  of  the  development  of  the 
equations  of  motion  and  the  physical  properties  of  the  spine  employed  in  the  HSM.  But, 
there  is  a  relative  lack  of  documentation  of  verification  and  validation  activities.  Some 
parametric  and  validation  testing  was  done,  but  neither  the  written  documentation  nor  the 
comments  in  the  HSM  code  describe  all  the  details  of  those  studies.  The  available 
documentation  of  studies  of  the  HSM  cervical  spine  subsection’s  response  to  impulsive 
acceleration  showed  encouraging  agreement  with  experimental  data.'*  Nevertheless,  only 
a  few  comparisons  were  made  and  the  full  range  of  possible  head-neck  motion  was  not 
explored.  It  is  likely  that  a  lack  of  experimental  data  or  development  resources,  or  both, 
limited  the  amount  of  validation  work  which  was  attempted. 

BRC’s  aim  was  to  investigate  the  feasibility  of  porting  the  existing  HSM  code  to  the  PC 
environment.  BRC  has  concluded  that  it  is  feasible  to  create  a  PC-based  version  of  the 
HSM  concept,  but  not  by  porting  the  existing  code.  The  existing  HSM  program 
documentation  and  some  of  the  archived  code  will  be  useful  in  creating  a  PC  version. 
However,  we  are  not  confident  that  it  will  be  possible  to  recover  the  original  code  and 
modify  it  to  run  in  a  more  general  purpose  version  on  any  platform  vvdthout  a  substantial 
rewrite  of  the  code.  Three  key  factors,  (1)  the  lack  of  comprehensive  documentation,  (2) 
the  code  implementation  problems  noted  in  Section  4.5,  and  (3)  the  limited  amount  of 
validation  testing  combine  to  substantially  lower  BRC’s  confidence  in  the  validity  of  the 
archived  HSM  code.  Moreover,  in  its  present  form,  the  HSM  is  anything  but  “user 
friendly.”  Much  of  the  activity  of  developing  a  PC-based  version  of  the  HSM  would 
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necessarily  be  devoted  to  creating  user  friendly  interfaces.  Thus,  it  is  BRC’s  opinion  that 
the  most  sensible  course  to  follow  would  be  to  completely  rewrite  the  HSM  for  the  PC 
environment,  to  conduct  that  process  using  a  development  methodology  designed  to 
ensure  the  model  and  its  limitations  are  documented,  and  to  employ  modem  languages 
and  programming  constmcts  to  create  a  model  specifically  for  the  PC  platform. 

There  still  remains  a  larger  question  of  whether  it  is  reasonable  to  expect  a  meaningful 
level  of  validation  for  the  HSM  in  the  future.  In  its  most  complex  form,  the  HSM  has  42 
six  degree-of-ffeedom  nodes.  This  implies  it  has  over  250  possible  degrees-of-freedom 
(DOF).  In  its  actual  implementation  (and  in  the  real  spine),  many  of  the  DOF  are 
constrained  so  that,  practically  speaking,  there  are  fewer  DOF.  However,  in  the  model, 
those  constraints  are  set  by  literally  hundreds  of  parameters,  many  of  whose  values  are 
not  known  precisely.  Thus,  the  number  of  unique  combinations  of  parameters  makes  it 
impractical  to  employ  conventional  parameterization  methods  with  the  42-node  version 
of  the  HSM.  The  developers  of  HSM  obviously  recognized  this  problem.  Three  of  the 
four  versions  of  HSM  are  simplified  so  that  many  of  the  vertebral  nodes  are  lumped. 

This  dramatically  reduces  the  number  of  parameter  combinations  so  that  fitting  the  model 
output  to  data  by  parameter  adjustment  becomes  more  feasible.  Nevertheless,  only  a  few 
attempts  to  refine  the  HSM  parameters  were  described  in  the  project  documentation. 

It  appears  that  the  HSM  development  team  assumed  that  the  HSM  would  be  inherently 
valid  if  they  created  a  model  with  a  high  degree  of  anatomical  fidelity  and  set  its  physical 
properties  using  the  best  data  obtainable.  In  fact,  this  approach  has  merit  if  the  modeling 
objective  is  to  understand  the  relationships  between  head-spine  structure  and  its  motion. 

It  also  summarizes  what  is  known  and  unknown  about  the  physical  properties  of  the  head 
and  spine  and  suggests  experiments  aimed  at  their  refinement.  If,  alternatively,  the 
purpose  of  the  model  is  to  recreate  (predict)  the  external  motion  of  the  head  and  spine  to 
potentially  injurious  acceleration  events,  there  are  a  number  of  issues  related  to  validation 
which  must  be  resolved  before  the  HSM’s  validation  can  be  established.  Validation 
issues  are  highlighted  in  Figure  6-1,  and  discussed  more  fully  in  Paragraphs  a-c. 
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Figure  6-1  HSM  Validation  Issues 


•  Do  mathematically  integrated  discrete-element  models  adequately 
represent  naturally  integrated  structures? 

•  Are  biomechanical  properties  measured  in  vitro  representative  of  those 
properties  in  vivo? 

•  Do  biomechanical  models  of  internal  structures  require  validation  against 
force-motion  data  measured  on  internal  structures  in  situ? 

•  How  does  natural  redundancy  in  biological  structures  affect  the  validation 
of  mathematical  models  of  that  structure? 


a.  Integrated  versus  Discrete  Nodes.  There  is  a  fundamental  question  related  to 
how  the  mathematical  model  resulting  from  the  assembly  of  models  of  the 
discrete  elements  which  comprise  the  spine  can  actually  simulate  the  behavior  of 
the  ligamentous  spine  and  its  associated  structures  in  vivo.  There  is  a  related  issue 
which  can  be  stated  as  a  question.  Are  the  physical  materials  properties  of 
individual  tissues,  obtained  in  vitro,  valid  when  they  are  combined  in  the  HSM  to 
represented  integrated  tissues?  The  present  HSM  approach  is  based  on  the 
implicit  assumption  that  in  vitro  properties  are  descriptive  of  in  vivo  properties 
and  that  any  and  all  tissue  interactions  are  adequately  described  by  the  equations. 

b.  Validation  with  External  versus  Internal  Motion.  With  present  technology, 
BRC  sees  little  possibility  of  obtaining  dynamic  data  on  internal  spinal  responses 
to  impulsive  acceleration  in  humans.  It  may  be  possible  to  obtain  such  data  on 
primate  subjects,  but  as  pointed  out  by  the  developers  of  the  original  model,  there 
are  issues  relating  to  scaling  primate  data  for  application  in  human  models. In 
any  case,  primate  data  will  be  expensive  to  acquire  and  difficult  to  employ  in 
validation  of  a  human  model.  Then,  the  only  data  which  will  be  feadily  available 
will  be  data  on  external  motions,  when  what  is  actually  needed  to  validate  the 
motion  of  the  skeleton  in  situ  are  internal  data.  This  leads  to  the  next  issue. 

c.  Redundancy  in  Natural  Structures.  Natural  biological  structures  are 
notoriously  redundant.  This  provides  “built  in”  protection  against  the  failure  of 
the  entire  organism  being  caused  by  failure  of  a  single  component.  The  spine  is 
no  exception.  Spinal  position  is  maintained  reflexively  by  tension  in  literally 
hundreds  of  muscle  segments  whose  actions  often  oppose  each  other,  as  in  flexion 
and  extension.  This  is  highly  relevant  to  a  model  which  is  based  on  a  high  degree 
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of  anatomical  fidelity.  The  hundreds  of  parameters  necessary  to  mathematically 
specify  the  internal  position,  structure,  and  function  of  the  spine  will  inherently 
contain  the  same  kinds  of  redundancy  as  the  actual  spine.  What  this 
boilsdowntois  that  external  motion  of  the  head  and  spine  will  be  insensitive  to 
some  of  the  model’s  parameters.  Moreover,  adjustments  to  a  particular  parameter 
value  can  be  offset  or  nullified  by  adjustments  to  another.  In  mathematical  terms, 
the  model  will  be  over  determined  in  the  context  of  modeling  external  motion  of 
the  head  and  spine.  This  leads  to  the  conclusion  that  parameters  are  likely  to  be 
intercorrelated  and  insensitive  to  changes  in  the  data  describing  external  motion. 
Ultimately,  this  means  that  some  parameters  can  be  combined  (lumped)  or 
eliminated  with  little  or  no  effect  on  the  match  between  the  model’s  predictions 
and  the  measured  data. 

The  issues  noted  above  circumscribe  and  help  define  the  process  necessary  to  create  and 
validate  a  head-spine  model  whose  predictions  of  external  motions  can  be  validated  and 
subsequently  related  to  internal  forces  and  motions  in  the  skeleton.  BRC’s 
recommendations  for  the  development  of  a  PC-based  HSM  derived  from  the  original 
model  are  detailed  in  Section  7.0  of  this  report. 
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Section  7 


Recommendations 


7.0  Recommendations. 


Our  research  demonstrated  that  the  HSM  could  be  hosted  and  executed  on  Personal 
Computers  (PC)  under  either  the  Microsoft  MS-DOS  or  Microsoft  Windows 
environment.  However,  the  existing  HSM  code  is  largely  undocumented  and 
unstructured  and  was  written  with  older  versions  of  FORTRAN  for  the  mainframe  or 
workstation  environment.  Therefore,  one  of  the  major  conclusions  of  the  Phase  I  research 
program  is  that  the  HSM  should  be  completely  re-coded  and  documented  using  modem 
software  and  numerical  routines  tailored  to  the  PC  environment.  Figure  7-1  outlines  the 
technical  steps  necessary  to  create  a  partially  validated,  user-friendly  HSM  model  for  the 
Windows  95™  operating  system.  For  the  purposes  of  this  report,  the  re-coded  HSM  will 
be  called  “HSM-PC.”  The  following  paragraphs  discuss  each  technical  step  and  its 
purpose. 

7.1  Plan  and  Establish  the  Simulation  Validation  Protocol. 

The  development  of  a  complex  computer  simulation  such  as  the  HSM-PC  demands  that  a 
logical  and  rigorous  protocol  be  employed  to  manage  the  risks  of  creating  a  software 
simulation  that  is  difficult  to  employ  and  maintain  in  the  “operational  environment.” 

The  development  program  should  therefore  consist  of  a  planning  phase,  during  which  the 
development  activities  are  laid  out  and  approved  by  the  sponsors  of  the  program,  and  an 
application  phase,  in  which  the  actual  development  is  carried  out.  BRC  recommends  that 
the  HSM-PC  development  program  follow  a  DOD  developed  methodology  described  by 
Knepell  and  Arango.'  Their  confidence  assessment  methodology  provides  the  necessary 
controls  and  procedural  framework  for  controlling  the  development  of  a  complex 
simulation,  while  ensuring  the  validation  of  the  modeling  concept,  code  verification, 
documentation,  and,  most  importantly,  a  systematic  evaluation  of  the  model’s  credibility. 
Figure  7-2  shows  a  diagram  of  the  overall  scheme.  Figure  7-2  was  adapted  from  Figure 
2-3  of  Reference  1.  To  explain  the  method,  a  few  definitions  are  required. 

a.  Conceptual  Model  Validation.  The  independent  review  of  the  purpose  and 
concept  of  the  model  and  its  implementation  to  ensure  the  model  addresses  the 
relevant  features  of  the  “real-world”  entity  being  simulated— in  this  case,  the  head 
and  spine  of  the  human  being. 

b.  Software  Verification.  A  process  by  which  it  is  ensured  that  the  software  code 
computes  the  desired  results.  Essentially,  this  process  verifies  that  the  coded 
software  implements  the  desired  algorithms  correctly  and  that  it  performs  as 
desired. 
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Figure  7-1  Technical  Objectives 


•  Plan  and  Establish  the  Simulation  Validation  Protocol 

•  Create  HSM  Geometry  and  Materials  Properties  Database 

•  Re-Code  The  HSM  for  the  Personal  Computer  Environment 

•  Partially  Validate  the  HSM-PC 

•  Conduct  Parametric  Studies  Using  the  HSM-PC  Simulation 

•  Document  the  HSM-PC  and  Its  Applicability 


Figure  7-2  Simulation  Validation  Process 


c.  Operational  Validation.  This  is  the  classic  validation  process  necessary  of  any 
computer  modeling  program.  Operational  validation  ensures  that  the  computer 
simulation  has  a  satisfactory  range  of  accuracy  within  its  intended  domain  of 
applicability  and  that  the  scope  of  its  domain  is  defined  and  documented.  In 
relation  to  the  HSM-PC,  operational  validation  will  ensure  that  the  HSM-PC 
predictions  and  their  errors  are  understood  and  that  its  domain  of  applicability  is 
known. 

d.  Data  Validation.  The  process  of  documenting  the  data  employed  in  generating 
model  parameters  and  equations.  For  the  HSM-PC  this  will  consist  of  creating, 
updating,  and  auditing  a  database  of  geometry  and  materials  properties  necessary 
to  specify  the  physical  structure  and  the  properties  of  the  constituent  tissues  of 
the  spine  and  its  associated  structures. 

e.  Internal  Security.  Internal  security  establishes  a  configuration  control  procedure 
and  protects  the  code  against  tampering  or  unauthorized  modification. 

As  shown  in  Figure  7-2,  the  entire  process  of  confidence  assessment  is  designed  to  ensure 
the  “real-world  problem  entity.”  In  this  case,  the  human  head  and  spine  are  represented 
and  simulated  in  the  computer  model  as  logically  and  accurately  as  possible.  The  entire 
process  is  managed  by  an  Assessment  Team  whose  members  are  listed  in  Figure  7-3. 


Figure  7-3  Assessment  Team  Representatives 

•  Project  Management 

•  Development  Team 

•  Users 

•  Community  Experts 


The  roles  of  the  Assessment  Team  members  are  briefly  described  below. 

a.  Management.  A  member  from  program  Management  will  be  designated  to  serve 
as  an  informed  member  of  the  Assessment  Team.  The  role  of  management  in  the 
process  is  to  provide  support  and  direction  as  necessary  to  ensure  sufficient 
resources  are  available  to  complete  the  development  program  on  schedule  and 
within  budget. 
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b.  Development.  Developers  include  the  programmers,  consultants,  scientists,  and 
computer  infrastructure  experts  necessary  to  implement  the  development  plan  for 
the  HSM-PC  development. 

c.  Users.  The  users  group  represents  knowledgeable  scientists  and  practitioners  who 
possess  the  necessary  skill  and  technical  knowledge  to  employ  the  model  in  an 
investigative  or  problem  solving  environment.  Members  of  this  group  should  not 
come  from  the  Development  community. 

d.  Community  Experts.  To  provide  an  objective  review  of  the  HSM-PC  and  its 
development  process,  subject  matter  experts  (SME’s)  will  be  employed  as 
members  of  the  review  team. 

The  model  evaluation  approach  is  detailed  in  Simulation  Validation.*  This  process  is  too 
extensive  to  be  completely  described  here.  Briefly,  it  provides:  (1)  the  detailed 
methodology  and  tools  to  continuously  assess,  verify,  validate,  and  document  a  complex 
software  simulation  during  its  development;  (2)  an  explicit  method  to  assess  the 
credibility  of  the  model’s  simulations  and  its  domain  of  applicability;  and  (3)  an  audit 
trail  to  support  the  confidence  assessment  process  governed  by  the  Assessment  Team. 
Although  the  confidence  assessment  methodology  will  add  both  time  and  expense  to  the 
HSM-PC  development  effort,  it  will  ensure  that  the  HSM-PC  software  is  properly 
assessed  and  documented. 

7.2  Create  a  Database  of  the  Geometry  and  Materials  Properties  Data  Contained  in  the 
AAMRL  HSM. 

The  researchers  who  created  the  original  AAMRL  HSM*"''  created  an  extensive  collection 
of  anatomic,  geometric,  and  materials  property  data  relating  to  the  spine  and  is  associated 
tissues.  These  data  were  documented  in  the  program  Technical  Reports  or  in  the  HSM 
code.  BRC  reviewed  the  geometry  and  materials  properties  data  related  to  the  HSM  and 
found  them  to  be  generally  complete.  However,  no  audit  was  conducted  to  confirm  that 
the  data  contained  in  the  HSM  documentation  was  actually  the  best  available. 

As  noted  above,  the  original  HSM  data  is  somewhat  dated.  A  survey  of  the  more  recent 
literature  should  be  conducted  to  support  a  systematic  update  and  audit  of  the  physical 
geometry  and  biomechanical  properties  of  the  head,  spine,  and  associated  tissues.  Once 
the  update  and  audit  are  complete,  the  geometry  and  materials  properties  data  should  be 
loaded  in  a  “Properties  Database”  for  on-line  access  by  the  HSM-PC.  This  database 
should  be  implemented  in  an  environment  which  will  be  independently  accessible  for 
other  purposes  as  a  stand  alone  database. 
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7.3  Create  User  Friendly  Interfaces 

As  shown  in  Figure  7-4,  the  HSM  software  uses  an  input  file  in  card  image  format  which 
is  tedious  to  assemble  and  difficult  to  decode.  The  user  is  required  to  encode  the  initial 
state  of  the  model  as  a  precise  sequence  of  control  and  data  records.  The  program  output 
is  a  large  text  file  which  includes  graphical  depictions  of  the  model  states.  To  aid  review 
of  the  output,  the  user  has  access  to  a  set  of  drawing  commands  which  allows  some 
flexibility  in  viewing  the  results  of  the  analysis.  The  Phase  I  effort  added  a  new  prototype 
user  interface  which  allows  the  user  to  view,  edit  and  save  input  files.  The  screen  pages 
provide  labels  for  the  input  data  and  in  some  cases  choices  of  possible  field  values.  This 
Phase  I  interface  also  reads  the  output  file  generated  by  the  analysis  and  displays  X-Y 
plots  on  the  screen  based  on  the  variable  values  computed  by  the  analysis. 

Both  the  input  and  output  GUIs  for  the  HSM-PC  should  be  studied  and  tailored  to  the  PC 
environment.  Of  particular  importance  are  provisions  to  manage  the  large  numbers  of 
input  specifications  necessary  to  specify  the  initial  conditions  and  forcing  functions  for 
the  HSM-PC.  The  GUI  should  display  the  initial  position  of  the  head  and  spine  and  its 
supporting  structures  as  well  as  allow  display  of  the  forcing  function.  The  use  of  the 
Materials  Properties  Database  will  facilitate  preserving  and  setting  parameters  which  are 
not  changed  fi'equently.  The  output  GUI  should  be  able  to  display  “snapshots”  of  two- 
and  three-dimensional  views  of  the  position  of  the  head  and  spine  as  a  function  of  time. 
The  user  should  be  able  to  easily  create  graphical  displays  of  the  position,  velocity,  and 
acceleration  of  particular  nodes  versus  time  or  displays  of  the  kinematic  variables  versus 
each  other  and  the  amplitude  of  the  forcing  function. 

7.4  Re-Code  the  HSM  for  the  PC  Environment. 

It  is  suggested  that  a  “build-up”  approach  be  employed  to  ensure  the  proper  verification 
and  documentation  of  the  software  code.  Figure  7-5  illustrates  the  suggested  program 
architecture.  It  is  recommended  that  the  HSM-PC  be  hosted  on  IBM  compatible  PC’s 
running  the  Windows  95™  operating  system.  This  will  ensure  its  compatibility  with  the 
32-bit  environment  and  dictate  that  a  more  capable  machine  be  employed  to  execute  the 
code.  The  Input/Output  GUI’s  should  be  programmed  in  Microsoft  Visual  Basic™ 
and/or  Microsoft  Visual  C^’^™  and  the  numerical  analysis  and  solver  modules  should  be 
written  in  a  language  which  emphasizes  speed  of  execution  such  as  Microsoft’s  Fortran- 
90™.  The  development  team  should  consider  the  use  of  computer  assisted  software 
engineering  (CASE)  tools  such  as  SD/FAST.  SD/FAST  is  a  multibody  dynamics 
modeling  application  for  the  PC  which  generates  the  Kane’s  Equations’®  (differential 
equations)  as  Fortran  source  code  subroutines  which  can  be  incorporated  directly  in 
independently  developed  Fortran  code.  The  geometry  and  materials  properties  database 
will  be  implemented  in  a  compatible  database  application  such  as  Microsoft  Access^"^. 

All  of  the  software  applications  should  employ  the  Object  Oriented  Programming  (OOP) 
technology.  The  choice  of  a  single  software  manufacturer  and  the  OOP  programming 
constructs  will  ensure  that  there  is  muhxal  compatibility  between  the  operating  system 
and  the  major  programming  applications  employed  to  create  the  HSM-PC. 
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Figure  7-4  Data  Flow  of  Original  HSM 


Figure  7-5  Overall  Program  Structure 
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The  use  of  a  build  up  approach  to  create  the  model  will  ensure  that  the  development  team 
develops  the  appropriate  discipline  demanded  by  the  CA  process  early  in  the  program.  It 
is  suggested  that  the  sequence  of  creating  subsegment  models  follow  those  outlined  in 
Figure  7-6,  which  is  a  roadmap  of  the  suggested  development  process.  As  shown,  a  full, 
3-D  head-cervical  spine  model  should  be  developed  and  partially  validated  to  prove  the 
viability  of  the  development  process.  The  head-cervical  spine  model  will  be  a  useful  tool 
in  its  own  right  and  independent  evaluation  and  further  validation  could  begin  on  that 
model  subsection  before  the  entire  development  process  is  complete. 

7.5  Validation  of  the  HSM-PC  Simulation. 

Operational  validation  of  the  simulations  produced  by  subsystem  modules  of  the  HSM- 
PC  should  commence  as  soon  as  the  software  subsystem  modules  are  created  and  coded. 
Predictive  validation  against  experimental  data  or  known  principles  of  physics  should 
take  place  where  possible. 

Because  the  HSM-PC  will  be  complex  and  will  contain  many  degrees  of  freedom,  the 
scope  of  its  predictions  will  be  enormous.  It  will,  therefore,  be  virtually  impossible  to 
validate  every  possible  prediction  of  the  HSM-PC.  Nevertheless,  an  attempt  should  be 
made  to  employ  suitable  data  where  feasible  to  define  the  scope  of  the  HSM-PC 
applicability.  Within  those  domains  where  the  use  of  the  HSM-PC  is  verified  and 
validated,  data  on  its  accuracy  should  be  sought  to  allow  the  user  to  gauge  the  utility  of 
the  HSM-PC  simulation  predictions  in  relation  to  other  analytic  tools  or  actual  data. 

7.6  Conduct  Parametric  Studies  with  the  HSM-PC. 

Parametric  Studies  should  be  conducted  to  examine  the  sensitivity  of  the  HSM-PC 
simulation  to  changes  in  parameter  values.  Parametric  investigations  will  reveal  which 
parameters  must  be  set  relatively  precisely  to  ensure  the  HSM-PC  simulations  are 
representative  of  the  dynamics  of  the  human  spine.  Parameter  sensitivities  and 
covariance  issues  should  be  addressed  as  early  as  possible  in  the  process  so  that 
redundant  or  extraneous  parameters  can  be  eliminated  from  the  model.  This  process  will 
ensure  parsimony  in  model  parameters  and  a  verified  and  validated  HSM-PC. 

In  the  process  required  to  “fit”  the  HSM-PC  to  experimental  data,  parameters  should  be 
varied  and  the  response  of  the  models  compared  to  experimental  data  until  “best  fits  in 
the  least  squares  sense”*'  are  obtained.  However,  as  noted  above,  it  is  to  be  expected  that 
a  model  with  many  degrees  of  freedom  will  be  somewhat  over  determined,  i.e.,  there  will 
be  interdependence  and  covariance  between  the  model  parameters.  The  interdependence 
between  parameters  and  their  covariance  should  be  studied,  perhaps  using  classic 
parametric  sensitivity  study  methods  such  as  Monte-Carlo.'^  *^  Another  approach  might 
be  to  examine  the  model  residuals  (the  difference  between  predicted  and  actual  motion) 
for  their  structure  to  define  “how  much”  of  the  actual  motion  is/or  is  not  simulated  by  the 
model.  The  relationships  between  the  residuals  and  the  forcing  function  amplitude  and 
its  frequency  content  should  also  be  investigated.  The  iterative  reduction  of  parameter 
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correlation  will  likely  be  a  tedious  process  and  will  be  very  demanding  on  computer 
resources.  It  will  require  putting  the  Numerical  Solver  inside  a  non-linear  optimization 
structure  and  repeatedly  finding  best  fit  solutions  as  the  parameters  are  varied.  If  this 
process  is  started  early  in  the  development  process,  an  intuitive  understanding  of 
parameter  sensitivities  will  likely  evolve  which  will  serve  the  development  team  as  the 
development  proceeds.  Parameters  whose  values  dominate  the  model  response 
characteristics  and  those  which  produce  little  or  no  change  in  the  model’s  response  or  its 
residuals  should  be  identified  and  studied  in  detail.  Parameters  to  which  the  model’s 
response  is  insensitive  should  be  flagged  as  candidates  for  elimination  from  the  final 
model  and  their  effects  should  be  tracked  as  the  model’s  complexity  increases. 

7.7  Document  the  HSM-PC  and  Its  Applicability. 

The  confidence  assessment  (CA)  methodology  described  in  Reference  1  ensures  that  the 
basic  material  from  which  the  final  documentation  is  drawn  is  developed  in  a  eomplete 
and  systematic  manner.  The  CA  process  is  iterative.  It  should  be  applied  at  the 
subsystem  level  as  the  code  for  major  subsystems  is  developed.  After  each  evaluation,  a 
report  should  be  issued  which  documents  the  findings  of  the  subsystem  CA. 

7.8  Conclusion. 

Biodynamic  Research  Corporation  (BRC)  of  San  Antonio,  TX,  completed  an  SBIR  Phase 
I  project  to  port  the  Air  Force’s  Head-Spine  Model  (HSM)  to  a  PC-DOS  environment  and 
provide  a  recommended  roadmap  for  the  future  of  the  HSM.  The  impetus  for  this  project 
was  the  Air  Force’s  desire  to  have  a  software  tool  capable  of  modeling  the  internal  forces 
and  motions  of  the  human  head  and  spine  during  impulsive  acceleration  events. 

Although  the  code  transfer  was  successful,  BRC  discovered  several  “problems”  with  the 
Head-Spine  Model  which  made  creating  a  general  purpose  HSM  code  impossible.  It  is 
BRC’s  belief  that  the  material  and  geometry  data  of  the  HSM  model,  as  well  as  some  of 
the  model  algorithms  and  logic,  can  best  be  used  by  recreating  the  model  in  an  object- 
oriented  software  language  such  as  C-i-i-  or  Fortran  90.  The  cost  and  effort  required  to 
understand  the  current  version,  debug  coding  and  algorithm  errors,  and  document  the 
code  is  far  greater  than  simply  extracting  the  useful  data  and  starting  over.  Therefore, 
BRC  recommends  that  the  HSM  be  rewritten  for  the  PC  environment  and  that  the 
development  program  be  conducted  under  the  confidence  assessment  process  outlined 
above. 
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HSM  Code  for  a  PC-DOS  Computer 


no  o  o  opppo  npo 


SUBROUTINE  ALPHA?  (NUMNP,XC,YC,ZC,EULCO,UD, INMESH) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

Cbrc 

Cbrc  REPLACED  COMMONS  WITH  INCLUDES  AND  ELIMINATED  GO  TO’S  -  DIP 
Cbrc 

INCLUDE  ’ADJUST.COM 

COMMON  /IPLOT/  PLTDCD,FSTPLT(9),PEL  VIS,IDPN(  1 0),NPPTS(  1 0),IDP(  1 0), 

1  INT,PRNT 

INTEGER  PLTDCD,  PRNT 

DIMENSION  EULCO(3,3,NBLAMB),  XC(NXC),  YC(NYC),  ZC(NZC),  UD(NXl), 

1  INMESH(NINMEH) 

C 

INTEGER  PELVNN 

INTEGER  T1  ,SPNN3PNN,TPNN,HEADNN 
INTEGER  C7,C2 

INTEGER  STERNM,RIBBGN,RIBEND,BPR,BPL 
DATA  ITYPE/4HBODY/ 

DATA  CERV/3HCYN/ 

IPTC=0 

PELVNN  =  INMESH(23 1 ) 

L5=INMESH(232) 

....  L5=INMESH(248) 

TI=INMESH(248) 

HEADNN=INMESH(249) 

NNSP=16 

NNBP-15 

NNTP=2l 

SPNN=INMESH(NNSP) 

BPNN=INMESH(NNBP) 

TPNN=INMESH(NNTP) 

....  BPNN=INMESH(223) 

....  TPNN=INMESH(229) 

...  SPNN=INMESH(224) 

NDBP=6*(BPNN-1) 

XOFF=XC(BPNN)+UD(NDBP+ 1 ) 

YOFF=YC(BPNN)+UD(NDBP+2) 

ZOFF=ZC(BPNN)+UD(NDBP+3) 

IF  (  PELVIS  .EQ. '  ’ )  THEN 

NBPPELV=INMESH(7) 

NDPELV  =  6*(NBPPELV-1) 

X  =  XC(NBPPELV)+UD(NDPELV+ 1  )-XOFF 
Y  =  YC(NBPPEL  V)+UD(NDPELV+2)-YOFF 
Z  =ZC(NBPPELV)+UD(NDPELV+3)-ZOFF 
NODE  =  1 

IF  (  PRNT  .EQ.  0  ) 

1  WRITE  (6,904)  NODE  ,  IPTC  ,  ITYPE,  X,  Y.  Z, 

2  ((  EULCO(M,L,PELVNN),  M=I,3),  L=l,3,2) 

WRITE  (7,903)  NODE ,  IPTC  ,  ITYPE,  X  Y,  Z, 

1  ((  EULCO(M,L,PELVNN),  M=l,3),  L-1,3,2) 

END  IF 


DO  KNODE=L5,Tl 
NDSP-6*(SPNN-1) 

NDBP=6*(BPNN-1) 

NDTP=6*(TPNN-1) 

C 

V3X=XC(TPNN)-XC(BPNN)+UD(NDTP+ 1  )-UD(NDBP+ 1 ) 
V3Y=YC(TPNN)-YC(BPNN)+UD(NDTP+2)-UD(NDBP+2) 
V3Z-ZC(TPNN)-ZC(BPNN)+UD(NDTP+3)-UD(NDBP+3) 
C 

V2X=XC(SPNN)-XC(BPNN)+UD(NDSP+ 1  )-UD(NDBP+ 1 ) 
V2Y=YC(SPNN)-YC(BPNN)+UD(NDSP+2)-UD(NDBP+2) 
V2Z=ZC(SPNN)-ZC(BPNN)+UD(NDSP+3)-UD(NDBP+3) 
C 

V 1  X=V2  Y*  V3Z- V3  Y*  V2Z 
V 1  Y=V2Z*  V3X-V3Z*  V2X 


1 


V1Z=V2X*V3Y-V3X*V2Y 

C 

V1L=DSQRT(V1X*V1X+V1Y*V1Y+VIZ*VIZ) 

C 

V1X=V1X/V1L 

V1Y=V1Y/V1L 

V1Z=V1Z/V1L 

c 

V3L=DSQRT(V3X*V3X+V3Y*V3Y+V3Z*V3Z) 

C 

V3X=V3XA'3L 

V3Y=V3YA/3L 

V3Z=V3Z/V3L 

C 

X=XC(BPNN)+UD(NDBP+ 1  )-XOFF 
Y=YC(BPNN)+UD(NDBP+2)-Y0FF 
Z=ZC(BPNN)+UD(NDBP+3)-Z0FF 
C 

NODE=KNODE-L5+2 

C 

IF  ( PRNT  .EQ.  0  ) 

1  WRITE  (6,904)  NODE, IPTC,ITYPE,XY,Z,V1X,V1Y, VIZ, V3X,V3Y,V3Z 
WRITE  (7,903)  NODE, IPTC,ITYPE,X,Y,Z,V1X,VIY, VIZ, V3X,V3Y,V3Z 
C 

NNSP=NNSP+I3 

NNBP=NNBP+I3 

NNTP=NNTP+13 

SPNN=INMESH(NNSP) 

BPNN=INMESH(NNBP) 

TPNN=INMESH(NNTP) 

C 

END  DO 
C 
C 

IF  (HEADNN.NE.19  .OR.  HEADNN.NE.2I)  THEN 
C7=INMESH(340) 

C2=INMESH(345) 

SPNN=INMESH(268) 

BPNN=INMESH(256) 

TPNN=INMESH(257) 

NODE=0 

C 

DO  KNODE=C7,C2 
NDSP=6*(SPNN-1) 

NDBP=6*(BPNN-1) 

NDTP=6*(TPNN-1) 

C 

V3X=XC(TPNN)-XC(BPNN)+UD(NDTP+ 1  )-UD(NDBP+ 1 ) 
V3Y=YC(TPNN)-YC(BPNN)+UD(NDTP+2)-UD(NDBP+2) 
V3Z=ZC(TPNN)-ZC(BPNN)+UD(NDTP+3)-UD(NDBP+3) 

C 

V2X=XC(SPNN)-XC(BPNN)+UD(NDSP+ 1  )-UD(NDBP+ 1 ) 
V2Y=YC(SPNN)-YC(BPNN)+UD(NDSP+2)-UD(NDBP+2) 
V2Z=ZC(SPNN)-ZC(BPNN)+UD(NDSP+3)-UD(NDBP+3) 

C 

V1X=V2Y*V3Z-V3Y*V2Z 
V 1  Y= V2Z*  V3X- V3Z*  V2X 
V 1  Z=V2X*  V3  Y- V3X*  V2  Y 
C 

V1L=DSQRT(V1X*V1X+VIY*V1Y+V1Z*V1Z) 

C 

VIX=V1XA^1L 

VIY=V1Y/V1L 

V1Z=V1Z/V1L 

c 

V3L=DSQRT(V3X*V3X+V3Y*V3Y+V3Z*V3Z) 

C 

V3X=V3XyV3L 

V3Y=V3YA'3L 

V3Z=V3ZA/3L 

C 

X=XC(BPNN)+UD(NDBP+ 1  )-XOFF 
Y=YC(BPNN)+UD(NDBP+2)-YOFF 
Z=ZC(BPNN>^-UD(NDBP+3)-ZOFF 
C 

NODE=NODE+l 


2 


IPTC=32 

IF(NODE.EQ.1)IPTC=20 

C 

IF  (  PRNT  .EQ.  0  ) 

1  WRITE  (6,904)  N0DE,IPTC,CERV,X,Y,Z,V1X,V1Y,V1Z,V3X,V3Y,V3Z 
WRITE  (7,903)  N0DE,IPTC,CERV,X,Y,Z,V1X,V1  Y,V1Z,V3X,V3Y,V3Z 
C 

SPNN=SPNN+i 

BPNN=BPNN+2 

TPNN=TPNN+2 

C 

END  DO 
END  IF 
C 

IF  (NUMNP.GE.471)  THEN 
STERNM=INMESH(47 1 ) 

RIBBGN=INMESH(451) 

RIBEND=INMESH(469) 

NNBPR=296 
•  NNBPL=303 

BPR=INMESH(NNBPR) 

BPL=INMESH(NNBPL) 

IPTC=0 

C 

IF  (NUMNP.LT.STERNM)  RETURN 
C 

DO  KNODE=RIBBGN,RIBEND,2 
NDBP=6*(BPR-1) 

X=XC(BPR)+UD(NDBP+ 1  )-XOFF 
Y=YC(BPR)+UD(NDBP+2)-YOFF 
Z=ZC(BPR)+UD(NDBP+3)-ZOFF 
C 

NODE=KNODE-RIBBGN+ 1 9 
C 

IF  ( PRNT  .EQ.  0  ) 

1  WRITE  (6,904)  NODE,IPTC,ITYPE,X,Y,Z,((EULCO(M,L,KNODE), 

2  M=l,3),L=l,3,2) 

WRITE  (7,903)  NODE,IPTC,ITYPEXY,Z,((EULCO(M,L,KNODE),M=l,3), 
1  L=l,3,2) 

C 

NDBP=6*(BPL-1) 

X=XC(BPL)+UD(NDBP+ 1  )-XOFF 
Y=YC(BPL)+UD(NDBP+2)-YOFF 
Z=ZC(BPL)+UD(NDBP+3)-ZOFF 
C 

INODE-KNODE+1 
NODE=INODE-RIBBGN+ 1 9 
C 

IF  (  PRNT  .EQ.  0  ) 

1  WRITE  (6,904)  NODE,IPTC,ITYPE,X,Y,Z,((EULCO(M,L, INODE), 

2  M=1,3),L=1,3,2) 

WRITE  (7,903)  NODE, IPTC,ITYPE,X,Y,Z,((EULCO(M,L, INODE), M=  1,3), 

1  L=l,3,2) 

C 

NNBPR=NNBPR+14 

NNBPL=NNBPL+14 

BPL=INMESH(NNBPL) 

BPR=INMESH(NNBPR) 

C 

END  DO 
C 

NDSTER=6*(STERNM- 1 ) 

X=XC(STERNM)+UD(NDSTER+ 1  )-XOFF 
Y-YC(STERNM)+UD(NDSTER+2)-YOFF 
Z=ZC(STERNM)+UD(NDSTER+3)-ZOFF 
C 

NODE=STERNM-RIBBGN+ 1 9 
C 

IF  ( PRNT  .EQ.  0  ) 

1  WRITE  (6,904)  NODE,IPTC,ITYPE,X,YJZ,((EULCO(M,L,STERNM), 

2  M=1,3),L=1,3,2) 

WRITE  (7,903)  NODE, IPTC,ITYPE,X,Y,Z,((EULCO(M,L,STERNM),M=  1,3), 
1  L=l,3,2) 

END  IF 
C 

NDHEAD  =  6  ♦  (  HEADNN-1  ) 


3 


n  o 


X=XC(HEADNN)+UD(NDHEAD+ 1  )-XOFF 
Y=YC(HEADNN)+UD(NDHEAD+2)-Y0FF 
Z=ZC(HEADNN)+UD(NDHEAEH-3)-Z0FF 
C 

NODE=40 

C 

IF  (  PRNT  .EQ.  0  ) 

1  WRITE  (6,904)  NODE, IPTCJTYPE,X,Y,Z,((EULCO(MX,HEADNN),M=  1,3), 

2  L=l,3,2) 

WRITE  (7,903)  NODE, IPTC,ITYPE,X,Y,Z,((EULCO(M,L,HEADNN),M=  1,3), 

1  L=l,3,2) 


RETURN 

C 

903  FORMAT  (I2,I2,A4,3F8.3,6F8.6) 

904  FORMAT  (1X,I2,I2,A4,3F8.3,6F8.6) 
END 
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SUBROUTINE  ASSBLE  (IX.XC,YC,ZaE,SMASS,RMASS,DICOS,INDEX.STRS,IPT, 
lAL) 

C 

Cbrc 

Cbrc  REPLACED  COMMONS  WITH  INCLUDES  AND  MOST  GOTOS  WITH  BLOCK  IF  AND  DO'S 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  {A-H,0-Z) 

C 

INCLUDE  'ADJUSTCOM* 

INCLUDE 'SIZE.COM' 

COMMON  /NEIGEN/  NAM,NR 

DIMENSION  IX(14,ND(),  XC(NXC),  YC(NYC),  ZC(NZC),  E(12,NE), 

1  SMASS(NSMASS),  RMASS(3,3,NBLAMB),  EULCO(3,3), 

2  DICOS(3,3,NDICOS),  INDEX(NTNDEX),  STRS(NSTRS), 

3  IPT(NIPT),  AL(NAL) 

INCLUDE  'CONTRL.COM 
INCLUDE  ’NUMINT.COM 

IF(KONTRL(3).EQ.2)  WRITE(6,201) 

MEQ=NNODE*NDGREE 

NEQ=NPRI*NDGREE 

ISEC=0 

MAXIPT-1 


IF(NUMSEC.NE.O)THEN 
READ  (5,901)  (IPT(LEN),LEN=1,NUMSEC) 

DO  LEN=1,NUMSEC 

IF  (MAXIPT.LT.IPT(LEN))  MAXIPT=IPT(LEN) 
END  DO 
END  IF 


DO  I=1,NPRI 
NN=(M)*NDGREE 
D0M=1,3 
LEN=NN+3 

RMASS(M,M,I)=SMASS(LEN+M) 

END  DO 
END  DO 

IADD-1 
INDEX(1)=1 
DO  JE=1,NELE 
NOPT=IX(10,JE) 

ISEC=D((11,JE) 

IF  (N0PT.EQ.1)IADD=16 
IF  (N0PT.EQ.3)  IADD=46 
IF  (N0PT.EQ.4)  IADD=40 
IF  (N0PT.EQ.5)  IADD=48+21*ISEC 
IF  (N0PT.EQ.6)  IADD=5 
IF  (N0PT.EQ.2)  THEN 
11=1 

IF  (ISEC.NE.O)  I1=IPT(ISEC) 

IADD=41+6*I1 

IF  (KONTRL(5).GT.O)  IADD=41+8*I1 
ENDEF 

INDEX(JE+ 1  )=INDEX{JE)+IADD 
IND=INDEX(JE)-1 

IF  (N0PT.EQ.2  .OR.  ISEC.NE.O)  THEN 
MTYP=IX(9,JE) 

KK=IADD+IND 

12=2*11 

IF  (KONTRL(5).GT.O)  KK=KK-I2 
D0M=1,I2 

STRS(KK)=E(3,MTYP) 

KK=KK-1 
END  DO 
END  IF 

IF(N0PT.EQ.5)THEN 

ID=INDEX(JE)+27 

IF  (MAXIPT.LT.ISEC)  MAXIPT=ISEC 
NIND  =  NSTRS-IND 
ELSE  IF  (NOPT.NE.6)  THEN 

CALL  BASME  (JE,NDGREE,IX,XC,YC,ZC,E,SMASS,DICOS,RMASS,AL) 
ELSE 
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CYCLE 
END  IF 
END  DO 


D0I=1,NPR1 
NN=(2*I-l)*3 
D0MJ=I,3 
DO  JM=l,3 
EULCO(MJ,JM)=O.DO 
END  DO 
END  DO 

IF  (RMASS(l,lJ).EQ.O.)  CYCLE 
IF  (KONTRL(3).NE.O)  THEN 
IF  (KONTRL(3).EQ.2)  GO  TO  202 
ELfLCO(Ll)=I.DO 
EULCO(2,2)=1.DO 
EULCO(3,3)=LDO 
SMASS(NN+ 1  )=RMASS(  1,1,1) 

SMASSCNN+2)=RMASS(2,2,I) 

SMASS(NN+3)=RMASS(3,3,I) 

GOTO  14 
END  IF 

RMASS(2, 1 ,1)=RMASS(  1 ,2,1) 

RMASS(3 , 1 ,1)=RMASS(2,2,I) 

DO  MJ=1,3 

RMASS(MJ,2,I)=RMASS(MJ,3,I) 

END  DO 

NAM  =  3  +  (3*3-3)/2 
NR  =  3*3 

CALL  EIGEN  (RMASS(1,1,I),EULCO,3,0) 

...  NORMALIZE  AND  DETERMINE  THIRD  EIGENVECTOR  FOR  RIGHT  HAND  SYSTEM 


DO  NE=1,2 

ENORM=DSQRT(EULCO(  1  ,NE)*EULCO(  1  ,NE)+EULCO(2,NE)*EULCO(2,NE)+ 
I  EULCO(3,NE)*EULCO(3,NE)) 

EULCO(  1  ,NE)=EULCO(  I  ,NE)/ENORM 
EULCO{2,NE)=EULCO(2,NE)/ENORM 
EULCO(3,NE)=EULCO(3,NE)/ENORM 
END  DO 

EULCO(  1 ,3)=EULCO(2,  l)*EULCO(3,2)-EULCO(2,2)*EULCO(3, 1 ) 

EULCO(2 ,3  )=EULCO(3, 1  )*EULCO(  1 ,2)-EULCO(3,2)*EULCO(  1,1) 

EULCO(3 ,3  )=EULCO(  1 , 1  )*EULCO(2,2)-EULCO(  1 ,2)*EULCO(2, 1 ) 

...  AVERAGE  INERTIAS 

AMASS=(RMASS(  1 , 1 ,1)+RMASS(3, 1 ,1)+RMASS(3,2,I))/3.D0 

SMASS(NN+1)= AMASS 

SMASS(NN+2)=AMASS 

SMASS(NN+3)=AMASS 

...  IF(NNODE.EQ.Il)GOTO210 

SMA  SS(NN+ 1  )=RMASS(  1,1,1) 

SMASS(NN+2)=RMASS(3, 1 ,1) 

SMASS(NN+3)=RMASS(3,2,I) 

GOTO  14 


READ-IN  X-BAR,  Y-BAR  VECTORS. 


32  READ(5,203)NODE,EULCO(1, 1  ),EULCO(2, 1 ),EULCO(3, 1), 
1  EULCO(  1 ,2),EULCO(2,2),EULCO(3,2) 

WRITE(6,204)  NODE 


NORMALIZE  X-BAR,  Y-BAR  VECTORS. 


DONE=I,2 

ENORM=DSQRT(EULCO(  1  ,NE)*EULCO{  1  ,NE)+EULCO(2,NE)*EULCO(2  ,NE) 
!  +EULCO(3,NE)*EULCO(3,NE)) 

EULCO(  I  ,NE)=EULCO(  1  ,NE)/ENORM 
EULCO(2,NE)=EULCO{2,NE)/ENORM 
EULCO(3,NE)=EULCO(3,NE)/ENORM 
END  DO 

'IND  Z-BAR  UNIT  VECTOR  FROM  CROSS-PRODUCT  OF  X-BAR  AND  Y-BAR. 
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C 

EULCO(  1 ,3)=EULCO(2,  l)*EULCO(3,2)-EULCO(2,2)*EULCO(3, 1 ) 
EULCO(2,3)=EULCO{3, 1)*EULC0(  U2)-EULCO(3,2)*EULCO(  1,1) 
EULCO(3,3)=EULCO(  1 , 1  )*EULCO(2,2)-EULCO(  1 ,2)*EULCO{2, 1 ) 

DONE=I,3 

WRITE(6,207)EULCO(NE, !  ),EULCO(NE,2),EULCO(NE,3) 

END  DO 
C 

14  D0MJ=1,3 
DO  JM=1,3 

RMASS(MJ,JM,I)=EULCO(MJ,JM) 

END  DO 
END  DO 
END  DO 

WRITE  (6,902) 

WRITE  (6,903)  (SMASS(LS),LS=I,NEQ) 

.  CALCULATE  R-ZERO  AND  R-ZERO-BAR  FOR  ALL  ELEMENTS  AND 
.  STORE  IN  STRS  ARRAY 

DO  I-1,NELE 
MJ=rNDEX(I)-l 
NOPT=IX(10,1) 

LOOP  1=2 
LOOP2=2 
IPADD=2 

IF  (NOPT.EQ.5)  THEN 
LOOPl=3 
LOOP2=l 
IPADD=3 
END  IF 
J3=4 

DOJl=l,LOOPl 
IF(NOPT.EQ.4)GOT0  2I 
K=IX(JI,I) 

KK=DC(J1+IPADD,I) 

.  SKIP  BODY  COMPONENT  CALCULATION  FOR  SPRING  ELEMENTS  (TYPE=  1 ) 

IF(NOPT.EQ.l)GOT0  23 
DO  L=l,LOOP2 
DO  M=l,3 
SUM=0.D0 
MJ=MJ+1 
KEV=L 

IF  (NOPT.EQ.5)  KEV=3 
DON=l,3 

SUM=SUM+RMASS(N,M,KK)*DICOS(N,KEV.I) 

END  DO 
STRS(MJ)=SUM 
END  DO 
END  DO 
GO  TO  23 

,  LOOP  FOR  R-ZERO  AND  R-ZERO-BAR  FOR  PVP  ELEMENT(TYPE=4) 


J2=Jl-l 

J3=0 

J4=3*J2 

J3=J3+1 

K=IX(J3+J4,I) 

KK=IX(74-J2,I) 

CALCULATE  R-ZERO 

STRS(MJ+ 1  )=XC(K)-XC(KK) 
STRS(MJ+2)=YC(K)-YC(KK) 
STRS(MJ+3)=ZC(K)-ZC(KK) 
MK=MJ 
MJ=MJ+3 


CALCULATE  R-ZERO-BAR 

DONN=l,3 

MJ=MJ+1 
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STRS(MJ)=RMAS  S(  1  ,NN,KK)*STRS(MK+ 1  )+RMASS(2  ,NN,KK)*STRS(MK+2) 
1  +RMASS(3,NN,KK)*STRS(MK+3) 

END  DO 

IF(J3.LT.3)GOT0  22 
END  DO 
END  DO 
RETURN 
C 

201  FORMAT(’0  nSfITIAL  BODY  UNIT  VECTOR  COMPONENTS',/, 

1  '  AT  NODE’) 

203  FORMAT(I5,5X,6F10.4) 

204  FORMATC  ',5X,I5) 

207  FORMATC  ’,9X,3F10.4) 

901  FORMAT  (1615) 

902  FORMAT  (/5X,37HTOTAL  PRIMARY  NODE  MASS  ARRAY  SMASS/) 

903  FORMAT  (2X,1P6D20.4) 

END 
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SUBROUTINE  BASME  (I,NDGREE,IX,XC,YC,ZC,E,SMASS,DICOS,RMASS,AL) 

C 

Cbrc 

Cbrc  CHANGED  COMMON  TO  INCLUDE  AND  GOTO’S  TO  BLOCK  IF  AND  DO 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

INCLUDE  'ADJUST.COM* 

DIMENSION  XC(NXC),  YC(NYC),ZC(NZC),E(  12,NE),IX(  14,NIX), 

1  SMASS(NSMASS) 

DIMENSION  DICOS(3,3,NDICOS),  AL(NAL),  RMASS(3,3,NBLAMB) 

C 

C....  CHECK  FOR  PVP  ELEMENTS  (ETYPR=4) 

C 

IF  (IX(10,I).NE.4)  THEN 
N1=IX(1,I) 

N2=D((2,I) 

N3=D((3,I) 

N4=IX(4,I) 

XX=XC(N2)-XC(Nl) 

YY-YC(N2)-YC(N1) 

ZZ=ZC(N2)-ZC(N1) 

AL(I)=DSQRT(XX*XX+YY*YY+ZZ*ZZ) 

C 

C....  SKIP  DIRECTION  COSINE  CALCULATION  FOR  SPRING  ELEMENTS 
C 

IF  (IX(10J).NE.I)THEN 
DICOS(LI,I>=XX/AL(I) 

DICOS(2,l,I)=YY/AL(I) 

DICOS(3,l,I)=ZZ/AL(I) 

LOCNOD=IX(8,I) 

VAX-XC(LOCNOD)-XC(N  1 ) 

VAY=YC(LOCNOD)-YC(Nl) 

VAZ=ZC(LOCNOD)-ZC(Nl) 

A=DSQRT(VAX*VAX+VAY*VAY+VAZ*VAZ) 

AX=VAX/A 

AY=VAY/A 

AZ=VAZ/A 

E3X=AZ*DICOS(2, 1 ,1)-A  Y*DICOS(3, 1 ,1) 

E3  Y=AX*DICOS(3, 1 ,1)- AZ*DICOS(  1 , 1 ,1) 

E3Z=A  Y*DICOS(  1 , 1 ,1)-AX*DICOS(2, 1 J) 
ANORM=DSQRT(E3X*E3X+E3Y*E3Y+E3Z*E3Z) 

DICOS(  1 ,3 ,1)=E3X/ANORM 
DICOS(2,3,I)=E3Y/ANORM 
DICOS(3,3,I)=E3Z/ANORM 
C 

C.  ..  ESTABLISH  LOCAL-GLOBAL  DIRECTION  COSINE  MATRIX 
C 

DICOS(  1 ,2,I)=DICOS(2,3,I)*DICOS(3, 1 ,1)- 
1  DICOS(3 ,3,I)*DICOS(2, 1 ,1) 

DICOS(2,2,I)=DICOS(3.3J)*DICOS(l,I,I)- 
1  DICOS(l,3,I)*DICOS(3,l,I) 

DICOS(3 ,2,I)-DICOS(  1 ,3,I)*DICOS(2, 1 J)- 
1  DICOS(2,3,I)*DICOS(  1 , 1 ,1) 

END  IF 
END  IF 
C 

C....  WRITE(6,99)  U(DICOS(LR,LC,I),LC=I,3),LR=l,3) 

C 

C 

C...  MASS  ASSEMBLY 

C....  FOR  BEAM  ELEMENTS  ONLY  (TYPE=2)  CALCULATE  AND  ASSEBMLE  ELEMENT 
C...  MASS 
C 

IF  (IX(10,I).NE.2)  RETURN 
MTYP=DC(9,I) 

RHO=E(I,MTYP) 

IF  (RHO.EQ.O.)  RETURN 
RT=RHO*AL(I)*E(7,MTYP)/2.DO 
RY=RT*AL(I)*AL(I)/12.D0 
RZ=RY 
C 

C....  RX  -  MASS  MOMENT  OF  INERTIA  ABOUT  LOCAL  X  AXIS  IS  APPROXIMATE 
C....  RX=RT*(E(5,MTYP)*E(5,MTYP)  +  E(8,MTYP)*E(8,MTYP))/12.D0 
C 

RX=RT*2.D0*E(7,MTYP)/12.D0 
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....  ASSEMBLE  TRANSLATIONAL  MASS 


DO  N=3,4 
KK-IX(N,I) 

NN=(KK-1)*NDGREE 

DOM=l,3 

SMASS(NN+M)=RT+SMASS(NN+M) 

END  DO 
END  DO 

...  ASSEMBLE  ROTATIONAL  MASS  IN  GLOBAL  COORDINATES 


DO  M=3,4 
N=IX(M,I) 

DO  11=1,3 
DO  JJ=l,3 

RMASS(II,JJ,N)=RMASS(II,  JJ,N)+DICOS(II,  I  ,I)*DICOS(JJ,  I  ,I)*RX 

1  +DICOS(II,2,I)*DICOS(JJ,2,I)*RY+ 

2  DICOS(II,3,I)*DICOS(JJ,3,I)*RZ 
END  DO 

END  DO 
END  DO 
RETURN 

END 
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SUBROUTINE  BFRCIN  (L,ND,XC,YC,ZC,IX,E,UD,FINT,STRS, STRAIN, STRESS,N 
1UMEL,IPT, INDEX, SMASS,EUI,EUJ,TRAI,TRAJ,EH,AL,IEIGEN,INMESH) 

C 

Cbrc 

Cbrc  REPLACED  COMMON  WITH  INCLUDE  AND  GOTO  WITH  BLOCK  IF  AND  DO 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

....  ROUTINE  CALCULATES  INTERNAL  FORCES  FOR  THREE-D  BEAM 

....  TRAI  AND  TRAJ  CONTAIN  I  BAR  0  ,J  BAR  0  AND  J  HAT  0  FOR  NODES  I  &  J 

INCLUDE  'ADJUST.COM' 

COMMON  /MATRIX/  NAM,NB,NR 
INCLUDE  'NUMINT.COM 
DOUBLE  PRECISION  FINT(NFINT) 

DIMENSION  XC(NXC),  YC(NYC),  K(14,NIX),  UD(NX1),  E(12,NE), 

1  STRAIN(NSTRAI),  SMASS(NSMASS),  STRESS(NSTRES), 

2  STRS(NSTRS),  INDEX(NINDEX),  ZC(NZC),  EUI(9),  EUJ(9), 

3  EH(9),  TRAI(12),  TRAJ(I2),  AL(NAL),  EJBI(3),  EJBJ(3), 

4  TEMP1(3),  TEMP2(3),  TEMP3(3),  TEMP4(3),  TEMP5(3), 

5  OMEGI(3,3),  OMEGJ(3,3),  DISP(2),  R0T(6),  AF0RCE(6), 

6  BM0MT(6),  IPT(NIPT),  INMESH(NINMEH) 

N1=IX(1,L) 

N2=IX(2,L) 

N3=IX(3,L) 

N4=IX(4,L) 

...  CHECK  FOR  PRIMARY  OR  SECONDARY  NODES 

ISKIP=0 

JSKIP=0 

IF(N1.EQ.N3)ISKIP=I 

IF(N2.EQ.N4)JSKIP=1 

C 

XX=XC(N2)-XC(N1) 

YY=YC(N2)-YC(NI) 

ZZ=ZC(N2)-ZC(N1) 

NIN=(NI-l)*ND 

N2N=(N2-1)*ND 

N3N=(N3-1)*ND 

N4N=(N4-1)*ND 

II=N1 

JJ=N2 

IF(ISKIP.EQ.1)THEN 

DIX=UD(N3N+1) 

DIY=UD(N3N+2) 

DIZ=UD(N3N+3) 

ELSE 

OMEGI(I,1)=O.DO 

OMEGI(l,2hTRAI(12) 

OMEGI(l,3)=-TRAI(ll) 

OMEGI(2,l)=-TRAI(12) 

OMEGI(2,2)=O.DO 

OMEGI(2,3)=TRAI(10) 

0MEGI(3,1)=TRAI(11) 

OMEGI(3,2)=-TRAI(10) 

OMEGI(3,3)=O.DO 

TEMP1(1)=TRAI(10) 

TEMP1(2)=TRAI(11) 

TEMP1(3)=TRAI(12) 

NAM  =  3*3 
NB  =  3*1 
NR  =  3*1 

CALL  GMPRD  (EUI,TEMPI,TEMP3,3,3,1) 

DIX=UD(N3N+ 1  )+TEMP3(  1  )-TRAI(7) 

DIY=UD(N3N+2)+TEMP3(2)-TRAI(8) 

DIZ=UD(N3N+3)+TEMP3(3)-TRAI(9) 

UD(N1N+1)=DIX 
UD(N1N+2)=DIY 
UD(N1N+3)=DIZ 
END  IF 


rF(JSKIP.EQ.l)THEN 

DJX=UD(N4N+1) 
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DJY=UD(N4N+2) 

DJZ=UD(N4N+3) 

ELSE 

OMEGJ(l,l)=O.DO 

OMEGJ(I,2)=TRAJ(12) 

0MEGJ(1,3)=-TRAJ(II) 

OMEGJ(2,l)=-TRAJ(12) 

OMEGJ(2,2)=O.DO 

OMEGJ(2,3)=TRAJ(10) 

0MEGJ(3,I)=TRAJ(11) 

OMEGJ(3,2)=-TRAJ{IO) 

OMEGJ(3,3)=O.DO 

TEMP2(1)=TRAI(I0) 

TEMP2(2)=TRAJ(U) 

TEMP2(3)=TRAJ{12) 

CALL  GMPRD  (EUJ,TEMP2,TEMP4,3,3,1) 

DJX=UD(N4N+ 1  )+TEMP4(  1  )-TRA  J(7) 

DJY=UD(N4N+2)+TEMP4(2)-TRAJ(8) 

DJZ=UD(N4N+3)+TEMP4(3)-TRAJ(9) 

UD(N2N+1)=DJX 
UD(N2N+2)-DJY 
UD(N2N+3)=DJZ 
END  IF 

IF  (lEIGEN.EQ.  1)  RETURN 

....  FIND  RIDID  BODY  ROTATION  AFTER  DEFORMATION  W/T  ORIGINAL  COORDINAT 

....  FIND  STRAINS  AT  NODES,  HT  IS  TfflCKNESS  OF  BEAM  ELEMENT 

DIJX-DJX-DIX 

DIJY=DJY-DIY 

DUZ=DJZ-DIZ 

DX=XX+DIJX 

DY-YY+DIJY 

DZ=ZZ+DIJZ 

AL2=AL(L)^AL(L) 

....  FAC  =  CENTROIDAL  AXIS  STRAIN 

FAC=2.D0*(XX*DIJX+YY*DIJY+ZZ*DIJZ)+DIJX*DIJX+DIJY*DIJY+DIJZ*DIJZ 

ALN2=AL2+FAC 

ALN=DSQRT(ALN2) 

IFLAG=0 

IF  (IFLAG.NE.O)  THEN 
WRITE  (6,90 1 )  L,AL(L),ALN 
WRITE  (6,902)  DIX,DIY,DIZ,DJX,DJY,DJZ 
WRITE  (6,903)  XX,YY,ZZ,DX,DY,DZ 
END  IF 

...  EH  IS  NEW  POSITION  OF  LOCAL  AXIS 

EH(1)=DX/ALN 

EH(2)=DY/ALN 

EH(3)=DZ/ALN 


DO  1=1,3 
14=3+1 
13=6+1 

EJBI(I)=EUI(I)*TRAI(4)+EUI(I4)*TRAI(5)+EUI(I3)*TRAI(6) 
E;BJ(I)=EUJ(I)*TRAJ(4)+EUJ(I4)*TRAJ(5)+EUJ(I3)*TRAJ(6) 
END  DO 

DO  1=1,3 
14=3+1 

EH(I4)=(EJBI(I)+EJBJ(I))/2.D0 
END  DO 

EH(7)=EH(2)*EH(6)-EH(3)*EH(5) 

EH(8)=EH(3  )*EH(4>EH(  1  )*EH(6) 

EH(9)=EH(  1  )*EH(5)-EH(2)*EH(4) 

EN0RM=DSQRT(EH(7)*EH(7)+EH(8)*EH(8)+EH(9)*EH(9)) 

EH(7)=EH(7)/EN0RM 

EH(8)=EH(8)/EN0RM 

EH(9)=EH(9)/EN0RM 

EH(4)=EH(8)*EH(3)-EH(9)*EH(2) 
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EH(5)=EH(9)*EH(  1  )-EH(7)*EH(3) 

EH(6)=EH(7)*EH(2).EH(8)*EH(  1 ) 

...  DETERMINE  DEFORMATION  ROTATIONS  OF  BEAM 

...  EH  CONTAINS  MU,  EUI  &  EUJ  CONTAIN  LAMDA I  &  LAMDA  J 

...  CALCULATE  DEFORMATION  ROTATIONS  LOCAL  COORDINATES(PHIY,PHIZ  ECT.) 

R0T{1HEJBI(2)*EJBJ(3)-EJBI(3)*EJBJ(2))*EH(1) 

ROT(  1  )=ROT(  1  )+(EJBI(  1  )*EJB  J(3  )-EJBI(3)*EJB  J(  1  ))*EH(2) 

R0T(  1  )=ROT(  1  )+(EJBI(  1  )*EJB  J(2)-E  JBI(2)*EJB  J(  I  ))*  EH(3) 

ROT(3)=-(EH(7)*EUI(  I  )+EH(8)*EUI(2)+EH(9)*EUI(3  ))*TRAI(  1 ) 

ROT(3)=ROT(3)-(EH(7)*EUT(4)+EH(8)*EUI(5)+EH(9)*EUI(6))*TRAI(2) 

ROT(3)=ROT(3HEH(7)*EUI(7)+EH(8)*EUI(8)+EH(9)*EUI(9))*TRAI(3) 

R0T(5HEH(4)*EUI(  1  )+EH(5)*EUl(2)+EH(6)*EUI(3))*TRAI(  I ) 

ROT(5)=ROT(5H(EH(4)*EUI(4)+EH(5)*EUI(5)+EH(6)*EUI(6))*TRAI(2) 

ROT(5)-ROT(5)+(EH(4)*EUI(7)+EH(5)*EUI(8)+EH(6)*EUI(9))*TRAI(3) 

ROT(4)=-(EH(7)*EUJ(  1  )+EH(8)*EUJ(2)+EH(9)*EUJ(3  ))*TRAJ(  1 ) 

ROT(4)=ROT(4)-(EH(7)*EUJ(4)+EH(8)*EUJ(5)+EH(9)*EUJ(6))*TRAJ(2) 

ROT(4)=ROT(4)-(EH(7)*EUJ(7)+EH(8)*EUJ(8)+EH(9)*EUJ(9))*TRAJ(3) 

R0T(6HEH(4)*EUJ(  1  )+EH(5)*EUJ(2)+EH(6)*EUJ(3))*TRAJ(  I ) 

ROT{6)=ROT(6)+(EH(4)*EUJ(4)+EH(5)*EUJ(5)+EH(6)*EUJ(6))*TRAJ(2) 

ROT(6)=ROT(6)+(EH(4)*EUJ{7>+EH(5)*EUJ(8)+EH(6)*EUJ(9))*TRAJ(3) 

IF  (IFLAG.NE.O)  THEN 
WRITE  (6,904)  L,(ROT(LL),LL=3,6) 

WRITE  (6,905)  (EH(LL),LL=1,9) 

WRITE  (6,906)  (EUI(LL),LL=1,9) 

WRITE  (6,907)  (EUJ(LL),LL=1,9) 

WRITE  (6,908)  (TRAI(LL),LL=1,3) 

WRITE  (6,909)  (TRAJ(LL),LL=l,3) 

END  IF 


..  CHECK  FOR  LARGE  ROTATIONS 


DOKK=3,6 

IF(DABS(ROT(KK)).GE.0. 15)  ROT(KK)=DASIN(ROT(KK)) 

END  DO 

..  DETERMINE  LOCAL  INTERNAL  FORCES 

STREH=FAC/(AL(L)+ALN)/AL(L) 

MTYP=DC(9,L) 

DISP(1)=ALN 

DISP(2)=STREH 

NOPT=IX(10,L) 

n-1 

ISEC=IX(11,L) 

IF  (ISEC.NE.O)  I1=IPT(ISEC) 

CALL  LOCFRC  (L,DISP,ROT,AFORCE,BMOMT,E,INDEX,Il, STRAIN, STRESS, 
1  STRS,SMASS,IX,AL(L),MTYP,NOPT,NUMEL,ZC,INMESH) 

..  ACCUMULATE  INTERNAL  ELEMENTAL  FORCES  TO  PINT 
..  COMPUTE  GLOBAL  COMPONENTS  OF  FINT 

TEMPl(l)=AFORCE(l) 

TEMP1(2)-AF0RCE(3) 

TEMPI(3)-AFORCE(5) 

NAM  -  3*3 
NB  =  3*1 
NR  =  3*I 

CALL  GMPRD  (EH,TEMP1,TEMP2,3,3,1) 

TEMP3(l)=AFORCE(2) 

TEMP3(2)=AFORCE(4) 

TEMP3(3)-AFORCE(6) 

CALL  GMPRD  (EH,TEMP3,TEMPl,3,3,l) 


DO  1=1,3 

FINT(N3N+I)=FINT(N3N+I)+TEMP2(I) 
FINT(N4N+I)=FINT(N4N+I)+TEMP  1(1) 
END  DO 

IF(ISKIP.EQ.1)THEN 
DO  1=1,3 
TEMP2(I)=0.D0 
END  DO 
ELSE 
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CALL  GTPRD  (EU1,TEMP2,TEMP3,3,3,1) 
CALL  GTPRD  (OMEGI,TEMP3,TEMP2,3,3,l) 
END  IF 

IF(JSKIP.EQ.1)THEN 
DO  1=1,3 
TEMPI  (I)=0.D0 
END  DO 
ELSE 

CALL  GTPRD  (EUJ,TEMP1,TEMP3,3,3,1) 
CALL  GTPRD  (OMEGJ,TEMP3, TEMPI, 3,3,1) 
END  IF 

TEMP4(l)=BMOMT(l) 

TEMP4(2)=BMOMT(3) 

TEMP4(3)=BMOMT(5) 

TEMP5(l)=BMOMT(2) 

TEMP5(2)=BMOMT(4) 

TEMP5(3)=BMOMT(6) 

CALL  GMPRD  (EH,TEMP4,TEMP3,3,3,1) 
CALL  GTPRD  (EUI,TEMP3,TEMP4,3,3,1) 
CALL  GMPRD  (EH,TEMP5,TEMP3,3,3,1) 
CALL  GTPRD  (EUJ,TEMP3,TEMP5,3,3,l) 

1=0 


DO  J=4,6 
1=1+1 

FINT(N3N+J)=FINT(N3N+J)+TEMP4(I)+TEMP2(I) 
FINT(N4N+J)=FINT(N4N+J)+TEMP5(I)+TEMP1(I) 
END  DO 

RETURN 

C 

901  FORMAT  (2X,5HEL  NO,I5,2X,7HLO  +  LN,1P2D20.4) 

902  FORMAT  (2X,7HDI  +  DJ/,5X,1P6D20.4) 

903  FORMAT  (3X,7HXX  +  DXy,5X,lP6D20.4) 

904  FORMAT  (5X,3HEL=,I5y,5X,3HROT,lP4D20.4) 

905  FORMAT  (5X,2HEH/,3(5X,lP3D20.4y)) 

906  FORMAT  (5X,3HEUiy,3(5X,lP3D20.4/)) 

907  FORMAT  (5X,3HEUJy,3(5X,lP3D20.4y)) 

908  FORMAT  (5X,4HTRAI,IP3D20.4) 

909  FORMAT  (5X,4HTRAJ,1P3D20.4) 

END 
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SUBROUTINE  CROSS  (A,B,C,BETA,CMAGJS) 
C 

Cbrc 

Cbrc  CLEANED  UP  SOME  CODE  -  DIP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

DIMENSION  A(3),  B(3),  C(3) 

....  PROGRAM  FORMS  CROSS  PRODUCT 
....AND  ANGLE  BETA.  C  NORMED  TO  CMAG 
....  C  =  AXB 

C(1)=A(2)*B(3)-A(3)*B(2) 

C(2)=A(3)*B(1).A(1)*B(3) 

C(3)=A(1)*B(2)-A(2)*B(I) 

AMAG=0.D0 

BMAG=0.D0 

CMAG=0.D0 


DO  1=1,3 

AMAG=AMAG+A(I)*A(I) 

BMAG=BMAG+B(I)*B(I) 

CMAG=CMAG+C(I)*C(I) 

END  DO 

AMAG=DSQRT(AMAG) 

BMAG=DSQRT(BMAG) 

CMAG=DSQRT(CMAG) 

BETA=CMAG/(AMAG*BMAG) 

IF  (DABS(BETA).GT.l.)  RETURN 
BETA=DASIN(BETA) 

IF  (IS.EQ.l)  RETURN 


DO  1=1,3 
C(I)=C(I)/CMAG 
END  DO 

RETURN 

END 


SUBROUTINE  DECOD  {NUM,JJ,NBASE,NTERMS) 

C 

Cbrc 

Cbrc  CLEANED  UP  SOME  CODE  -  DJP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A.H,0-Z) 

C 

DIMENSION  JJ(NTERMS) 

C 

C....  NUM  =  NUMBER  TO  BE  DECODED 

C....  JJ  =  RETURNS  DECODED  TERMS  IN  NUM  I  TO  NTERMS 

C....  NBASE  =  BASE  WHICH  NUM  IS  CODED  IN 

C.  ..  JJ(NTERMS)  =  NODE  NUMBER 

C 

ND=NUM 

N=NTERMS-1 

J=NBASE+»N 

JJ(NTERMS)=ND/J 

ND=ND-JJ(NTERMS)*J 


DO  K-1,N 
J=NBASE**(N-K) 
JJ(K>=ND/J 
ND=ND-JJ(K)*J 
END  DO 


RETURN 

END 


SUBROUTINE  EIGEN  (A,R,N,MV) 

C 

Cbrc 

Cbrc  CLEANED  UP  SOME  CODE  -  DIP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
C 

COMMON  /NEIGEN/  NA,NR 
DIMENSION  A(NA),  R(NR) 

RANGE=1.0D-7 


IF((MV-I).NE.O)  THEN 
IQ=-N 


DO  J=1,N 
IQ=IQ+N 
DO  1=1, N 
IJ=IQ+I 
R(IJ)=0.D0 

IF  ((I-J).NE.O)  CYCLE 
R(IJ)=1.D0 
END  DO 
END  DO 
END  IF 


ANORM=O.DO 


DO  I=1,N 
DO  J=1,N 

IF  ((I-J).EQ.O)  CYCLE 
IA=I+(J*J-J)/2 

ANORM=ANORM+A(IA)*A(IA) 

END  DO 
END  DO 

IF  (ANORM.GT.O)  THEN 
ANORM=DSQRT(2.DO)*DSQRT(ANORM) 
ANRMX=ANORM*RANGE/FLOAT(N) 

IND=0 

THR=ANORM 

9  THR=THR/FLOAT(N) 

10  L=1 

11  M=L+1 

12  MQ=(M*M-M)/2 
LQ=(L*L-L)/2 
LM=L+MQ 

IF  (DABS(A(LM)).GE.THR)  THEN 
IND=1 
LL=L+LQ 
MM=M+MQ 
X=.5D0*(A(LL)-A(MM)) 
Y=-A(LM)/DSQRT(A(LM)*A(LM)+X*X) 

IF  (X.LT.O)  Y=-Y 

SINX=Y/DSQRT{2.D0*(  1  .D0+(DSQRT(  1  .DO- Y*  Y)))) 

SINX2=SINX*SINX 

COSX=DSQRT(  1  .D0-SINX2) 

COSX2=COSX*COSX 

SINCS=SINX*COSX 

ILQ=N*(L-1) 

IMQ=N*(M-1) 


DO  1=1, N 
IQ=(I*I-I)/2 
IF  (I.NE.L)  THEN 

IF  (I.LT.M)THEN 
IM=I+MQ 

ELSE  IF  (LGT.M)  THEN 
IM=M+IQ 
ELSE 

IF((MV-1).EQ.0)CYCLE 

ILR=ILQ+I 

IMR=IMQ+I 

X=R(ILR)*COSX-R(IMR)*SINX 

R(IMR)=R(ILR)*SINX+R(IMR)*COSX 

R(ILR)=X 


END  IF 


IF  (I.LT.L)  THEN 
IL=I+LQ 
ELSE 
IL=L+IQ 
END  IF 

X=A(IL)*COSX-A(IM)*SINX 
A(IM)-A(IL)*SINX+A(IM)*COSX 
A(IL)=X 
END  IF 

IF((MV-l).EQ.O)  CYCLE 

ILR=ILQ+I 

IMR==IMQ+I 

X=R(ILR)*COSX-R(IMR)*SINX 
R(IMR)=R(ILR)*SINX+R(IMR)*COSX 
R(ILR)=X 
END  DO 

X=2.D0*A(LM)*SINCS 
Y=A(LL)*COSX2+A(MM)*SINX2-X 
X=A(LL)*SINX2+A(MM)*COSX2+X 
A(LMHA(LL)-A(MM))*SINCS+A(LM)*(COSX2-SINX2) 
A(LL)-Y 
A(MM>=X 
END  IF 

IF  (M.NE.N)  THEN 
M=M+1 
GO  TO  12 
END  IF 

IF(L.NE.(N-1))THEN 
L=L+1 
GOTO  11 
ENDIF 

IF(IND.EQ.1)THEN 
IND=0 
GO  TO  10 
END  IF 

IF  (THR.GT.ANRMX)  GO  TO  9 
END  IF 

IQ=-N 


DO  1=1, N 
IQ=IQ+N 
LL=I+(I*I-I)/2 
JQ=N*(I-2) 


DO  J=I,N 
JQ=JQ+N 


MM=J+(J*J-J)/2 

IF  (A(LL).GE.A(MM))  CYCLE 

X=A(LL) 

A(LL)=A(MM) 

A(MM)=X 

IF  {MV.EQ.l)CYCLE 


DO  K=1,N 
ILR=IQ+K 
IMR=JQ+K 
X=R(ILR) 
R(ILR)=R(IMR) 
R(IMR)=X 
END  DO 
END  DO 
END  DO 


RETURN 

END 

SUBROUTINE  ELOUT  (STRS,IX,INDEX,NUMEL,IPTS) 
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c 

Cbrc 

Cbrc  CLEANED  UP  CODE  -  DP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

INCLUDE  'ADJUST.COM’ 

DIMENSION  STRS(NSTRS),  IX(14,NIX),  INDEX(NINDEX),  PTS(NIPT) 

WRITE  (6,901) 

C0N1=4.448D5 

CON2=.394DO 

CON3=CON2/CONl 

CON4=CON2**3 

IFLAG=0 

PLATE-0 


DO  JE=1,NUMEL 
NOPT=DC(10,JE) 

IND=INDEX(JE) 

IF(NOPT.EQ.l)THEN 

N-INrH-14 

WRITE  (6,902)  JE,STRS(N) 
STRS(N)-STRS(N)/CONl 
WRITE  (6,903)  STRS(N) 

STRS(N)=STRS(N)*CON  1 
ELSE  IF  (NOPT.EQ.2  .OR.  NOPT.EQ.3)  THEN 
IF  (NOPT.EQ.2)  THEN 
N-IND+26 

IF  (IX(1 1,JE).NE.0)  IFLAG=IX(1 1,JE) 

ELSE  IF  (NOPT.EQ.3)  THEN 
N=INrH24 
END  IF 
NEND-N+7 

WRITE  (6,904)  JE,(STRS(K),K=N,NEND) 

DOK=l,3 

I=K-1 

STRS(N+I)=STRS(N+I)/CONI 
END  DO 
DOK=4,8 
I-K-1 

STRS(N+I)-STRS(N+I)*CON3 
END  DO 

WRITE  (6,905)  (STRS(K),K=N,NEND) 

DOK=l,3 

I=K-1 

STRS(N+I)=STRS(N+I)*CONl 
END  DO 
DO  K=4,8 
I-K-1 

STRS(N+T)=STRS(N+I)/CON3 
END  DO 

ELSE  IF  (NOPT.EQ.4)  THEN 
N-IND+36 

WRITE  (6,906)  JE,STRS(N),STRS(N+l),STRS(N+3) 
STRS(N)=STRS(N)/(CON  1  ♦CON2*CON2) 
STRS(N+ 1  )=STRS(N+ 1  )*CON4 
STRS(N+3)=STRS(N+3)/CONl 
WRITE  (6,907)  STRS(N),STRS(N+I),STRS(N+3) 
STRS(N)=STRS(N)*CONI  ♦CON2*CON2 
STRS(N+ 1  )=STRS(N+ 1  )/CON4 
STRS(N+3)-STRS(N+3)*CONl 
ELSE  IF  (NOPT.EQ.5)  THEN 
PLATE-1 
END  IF 
END  DO 

IF  (IFLAG.NE.O)  THEN 
WRITE  (6,908) 

DO  I=I,NUMEL 
IF  (D((10,I).EQ.5)  CYCLE 
ISEC=IX(11,I) 

11=1 

IF  (ISEC.NE.O)  I1=PTS(ISEC) 

WRITE  (6,909)  I 
IF(I1.EQ.1)THEN 
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IND=INDEX(I)+24 

WRITE  (6,9 1 1 )  STRS(IND),STRS(IND+ 1 ) 
CYCLE 
END  IF 

IND=INDEX(I)+4I 
DO  K=l,2 
WRITE  (6,910)  K 
DOM=l,II 

N1=IND+M-1+(K-1)*I1 

N2=2*I1+N1 

N3=4*T1+N1 

WRITE  (6,91 1)  STRS(N1),STRS(N2),STRS(N3) 
END  DO 
END  DO 
END  DO 
END  IF 

IF  (IPLATE.EQ.O)  RETURN 
WRITE  (6,912) 


DO  I=1,NUMEL 
IP=D((1IJ) 

IND=INDEX(I)-1 
WRITE  (6,913)1 
DOKP=l,IP 
WRITE  (6,914)  KP 
DO  IS=1,3 
NN=IS+3 

Nl=IND+30+3*(7*(KP-l)+IS-I)+l 

N2-N1+9 

N3=N2+9-2*(IS-l) 

WRITE  (6,915)  NN,STRS(N1),STRS(N1+1),STRS(N1+2),STRS(N2), 

1  STRS(N2+ 1  ),STRS(N2+2),STRS(N3) 

END  DO 
END  DO 
END  DO 

RETURN 

C 

901  FORMAT  (I0X,20HLOCAL  ELEMENT  FORCESy,/,5X,l  IHELEMENT  NO.,6X,7H(UN 
1ITS),7X,1  IHAXIAL  FORCE,10X,9HY  -  SHEAR,10X,9HZ  -  SHEAR,! OX, lOHX  - 
2MOMENTy,36X,l  IHYI  -  MOMENT,  1  OX,  1 IHYJ  -  MOMENT,8X,l  IHZI  -  MOMENT,8 
3X,UHZJ-MOMENTy/) 

902  FORMAT  (5X,I5,1 1X,9H(DYNE.CM),G16.6,/) 

903  FORMAT  (21X,8H(LBF-IN),lX,G16.6y/) 

904  FORMAT  (5X,I5,1  lX,9H(DYNE-CM),4(G16.6,5X)y,30X,4(G16.6,5X),/) 

905  FORMAT  (21X,8H(LBF-IN),lX,4(G16.6,5X),/,30X,4(G16.6,5X)y/) 

906  FORMAT  (5X,I5,1 1X,9H(DYNE.CM),5X,10HPRESSURE  =,  1PD12.4,5X,8HV0LUME 
1  =  1PD12.4,5X,7HF0RCE  1,IPDI2.4,/) 

907  FORMAT  (2 1  X,8H(LBF-IN),6X,  1 OHPRESSURE  1  PD  1 2.4,5X,8HVOLUME  1  PD  1 
I2.4,5X,7HFORCE  =  1PD12.4,/) 

908  FORMAT  ( 1  HI ,6X,  I  IHELEMENT  NO.,  1 8X,7HSECTION,6X,6HSTRAIN,  1 9X,6HSTRE 
1 SS,  1 6X,  1 2HYTELD  STRESS) 

909  FORMAT  (12X,I5) 

910  FORMAT  (35X,I5) 

911  FORMAT  (36X,3(5X,  I  PD20.4)) 

912  FORMAT  (1H1,9X,33HSTRAINS,STTIESSES  AND  YIELD  VALUES// 1X,7HELEMENT/ 
16X,5HLAYER,9X,5HEPS-X,8X,5HEPS-Y,8X,6HEPS-XY,7X,5HSTR.X.8X,5HSTR.Y 

2, 8X,6HSTR-XY,6X,5HYIELD/,  1 0X,5HPOINT) 

913  FORMAT  (15,14) 

914  FORMAT  (5X,I4) 

915  FORMAT  (10X,I3,2X,1P7D13.5) 

END 
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nnno  opo  oppn 


SUBROUTINE  FRCIN  (NUMEL,NDGREE,XC,YC,ZC,IX,E,UD,FINT,STRS,ST 
iRAIN,STRESS,IPTS,INDEX,BLAMB,SMASS,DICOS,NPRI,AL,IEIGEN,rNMESH) 
Cbrc 

Cbrc  CLEANED  UP  CODE  -  DIP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DOUBLE  PRECISION  FINT(NFINT) 

INCLUDE  'ADJUST.COM’ 

DIMENSION  XC(NXC),  YC(NYC),  ZC(NZC),  IX(14,NIX),  E(12,NE),  UD( 

1  NXl ),  STRS(NSTRS),  DIC0S(9,NDIC0S),  STRAIN(NSTRAI), 

2  STRESS(NSTRES),  INDEX(NINDEX),  BLAMB(NNBLAM),  SMASS( 

3  NSMASS),  AL(NAL),  IPTS(NIPT),  INMESH(NINMEH) 

...  THIS  SUBROUTINE  CALCULATES  THE  INTERNAL  FORCES  IN  ALL  OF  THE 
...  ELEMENTS  AND  RETURNS  THEM  IN  FINT 

IF(IEIGEN.NE.1)THEN 

NEQ=NPRI*NDGREE 

ISTIF=0 

...  ZERO  OUT  FINT  ARRAY 

DO  LEN=1,NEQ 
FINT(LEN)=O.DO 
END  DO 
END  IF 

...  SET  UP  LOCAL  ARRAY  ENTRIES  FOR  BFRCIN  AND  SFRCIN 


DO  JE=I,NUMEL 
NOPT=IX(IO,JE) 

NP1=3 

IF  (N0PT.EQ.4)  NP1=7 

IF  (N0PT.EQ.5)NP1=4 

I=(DC(NP1,JE)-1)*9+1 

J-(IX(NP1+1,JE)-1)*9+1 

K=(IX(NPI+2,JE)-1)*9+1 

M=INDEX(JE) 

MB-M+12 

MS=M+6 

MPV=M+I8 

MPL2=M+9 

MPL3=MPL2+9 

MPSIDE=M+27 

IF(NOPT.EQ.I)THEN 

CALL  SFRCIN  (JE,NDGREE,XC,YC,ZC,IX,E,UD,FINT,STRS,STRAIN, 

1  STRESS, NUMEL,INDEX,SMASS,BLAMB(I)3LAMB(J), 

2  STRS(M),STRS(MS),DIC0S(1,JE),AL,IEIGEN, 

3  INMESH) 

ELSE  IF  (N0PT.EQ.2  .OR.  N0PT.EQ.3)  THEN 
CALL  BFRCIN  (JE,NDGREE,XC,YC,ZC,IX,E,UD,FINT,STRS,STRAIN, 

1  STRESS,NUMEL,IPTS,INDEX,SMASS3LAMB(I),BLAMB(J), 

2  STRS(M),STRS(MB),DIC0S(1,JE),AL,IEIGEN, INMESH) 

ELSE 

CYCLE 
END  IF 
END  DO 

RETURN 

END 
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SUBROUTINE  FREEFD(KONWAV,NUMDIS,NODDIS,NNODE,NDGREE,XC,YC,ZC, 

1  UD.UD  I  ,UD2,F0RCD,INMESH,BETA  ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

INCLUDE  'ADJUSTCOM* 

INCLUDE  'DYNAM.COM 

DIMENSION  UD(  1  ),UD  1  ( 1  ),UD2(  1  ),FORCD(  1  ),NODDIS(  1  ),INMESH(  1 ) 

C 

c 

C  FREEFD  FOR  HYBRID  11  PENDULUM  TEST.  INITIAL  VELOCITY  -  19.5  fVsec  AT  WAND 
C  PRESCRIBED  ACCELERATION  PROFILE  CONSISTS  OF 
C  "HALF-SINE"  FOR  O.LE.T.LT.Tl 
C  "  1-COS+CONSTANT"  FOR  T1.LE.T.LT.T2 
C  "A  CONSTANT"  FOR  T2.LE.T 
C 

C  VO  IS  THE  INITIAL  X- VELOCITY  OF  BASE  POINT  =>  FLEXION  <= 

C 

Cbrc 

Cbrc  INITIALIZE  VARIABLES  IF  THE  FIRST  TIME  STEP 
Cbrc 

IF  (TIME  XT.  DELT)  THEN 
G  =  980.6635200 
VO  =  658.1 

NCGTX  =  6*(INMESH(4)-1)+1 
NPNTX  =  6*(INMESH(l)-l)+I 
UD1(NCGTX)  =  710.5 
CALL  ICIF(TIME,DUMMY,2) 

RETURN 
END  IF 

CALL  ICIF(TIME,ACC,0) 

CALL  ICIF(TIME,VEL,1) 

CALL  ICIF(TIME,DIS,2) 

UD  (NPNTX)  =  DIS^G  +  VO*TIME 
UD1(NPNTX)  =  VEL^G  +  VO 
UD2(NPNTX)  =  ACC*G 

RETURN 

END 
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SUBROUTINE  GMPRD  (A,B,R,N,M,L) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

C . . . 

C....  SUBROUTINE  GMPRD 
C.„.  PURPOSE 

C....  MULTIPLY  TWO  GENERAL  MATRICES  TO  FORM  A  RESULTANT  GENERAL 
C...  MATRIX 
C....  USAGE 

C....  CALL  GMPRD(A,B,R,N,M,L) 

C....  DESCRIPTION  OF  PARAMETERS 

C....  A  -  NAME  OF  FIRST  INPUT  MATRIX 

C....  B  -  NAME  OF  SECOND  INPUT  MATRIX 

C....  R- NAME  OF  OUTPUT  MATRIX 

C  ...  N  -  NUMBER  OF  ROWS  IN  A 

C....  M  -  NUMBER  OF  COLUMNS  IN  A  AND  ROWS  IN  B 

C....  L  .  NUMBER  OF  COLUMNS  IN  B 

C....  REMARKS 

C....  ALL  MATRICES  MUST  BE  STORED  AS  GENERAL  MATRICES 

C....  MATRIX  R  CANNOT  BE  IN  THE  SAME  LOCATION  AS  MATRIX  A 

C....  MATRIX  R  CANNOT  BE  IN  THE  SAME  LOCATION  AS  MATRIX  B 

C....  NUMBER  OF  COLUMNS  OF  MATRIX  A  MUST  BE  EQUAL  TO  NUMBER  OF  ROW 

C...  OF  MATRIX  B 

C.  ..  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
C....  NONE 
C....  METHOD 

C....  THE  M  BY  L  MATRIX  B  IS  PREMULTIPLIED  BY  THE  N  BY  M  MATRIX  A 
C....  AND  THE  RESULT  IS  STORED  IN  THE  N  BY  L  MATRIX  R. 

C . 

C 

COMMON  /MATRIX/  NA,NB,NR 
DIMENSION  A(NA),  B(NB),  R(NR) 

C 

IR=0 
IK--M 
DO  1  K=I,L 
IK=IK+M 
DO  1  J=1,N 
IR=IR+I 
JI-J-N 
IB=IK 
R(IR)=0 
DO  I  I=UM 
JI=n+N 
IB=IB+! 

1  R(IR)=R(IR)+A(J1)*B(IB) 

RETURN 

END 
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SUBROUTINE  GTPRD  (A,B,R,N,M,L) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

C . 

C....  SUBROUTINE  GTPRD 
C....  PURPOSE 

C....  PREMULTIPLY  A  GENERAL  MATRIX  BY  THE  TRANSPOSE  OF  ANOTHER 
C....  GENERAL  MATRIX 
C....  USAGE 

C....  CALL  GTPRD(A.B,R,N,M,L) 

C....  DESCRIPTION  OF  PARAMETERS 

C.  ..  A  -  NAME  OF  FIRST  INPUT  MATRIX 

C....  B  -  NAME  OF  SECOND  INPUT  MATRDC 

C....  R  >  NAME  OF  OUTPUT  MATRIX 

C.,..  N  -  NUMBER  OF  ROWS  IN  A  AND  B 

C....  M  -  NUMBER  OF  COLUMNS  IN  A  AND  ROWS  IN  R 

C.,..  L  -  NUMBER  OF  COLUMNS  IN  B  AND  R 

C....  REMARKS 

C....  MATRIX  R  CANNOT  BE  IN  THE  SAME  LOCATION  AS  MATRIX  A 

C  ...  MATRIX  R  CANNOT  BE  IN  THE  SAME  LOCATION  AS  MATRIX  B 

C....  ALL  MATRICES  MUST  BE  STORED  AS  GENERAL  MATRICES 
C.  ..  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
C....  NONE 
C....  METHOD 

C....  MATRIX  TRANSPOSE  OF  A  IS  NOT  ACTUALLY  CALCULATED.  INSTEAD, 

C....  ELEMENTS  OF  MATRIX  A  ARE  TAKEN  COLUMNWISE  RATHER  THAN 
C....  ROWWISE  FOR  POSTMULTIPLICATION  BY  MATRIX  B. 

C . 

c 

COMMON  /MATRIX/  NA,NB,NR 
DIMENSION  A(NA),  B(NB),  R(NR) 

C 

IR=0 
IK=-N 
DO  1  K-1,L 
IJ=0 

IK=IK+N 
DO  1  J=1,M 
IB=IK 
IR=IR+I 
R(IR)=0 
DOl  I=1,N 
IJ=IJ+I 
IB=IB+1 

1  R(IR)=R(IR)+A(IJ)*B(IB) 

RETURN 

END 
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SUBROUTINE  ICIF  (TIME, VALUE, NI) 

Cbrc 

Cbrc  CODE  CLEAN-UP  -  DIP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSIONT(26),F(26),FP(26),FI(25),F2(25) 

NJ=NI+1 

C 

C....  READ  IN  DATA  AND  INITIALIZE  INTEGRATION  ROUTINE 
C 


IF  (TIME  .LE.  O.DO)THEN 
READ  (5,90 1 )  NPTS,F  1  ( 1  ),F2(  1 ) 

READ  (5,902)  (T(K),F(K),FP(K),K=1,NPTS) 

WRITE  (6,903)  NPTS,F1(1),F2(1) 

WRITE  (6,904)  (T(K),F(K),FP(K),K=1,NPTS) 

DO  K=2,NPTS 
TK=T(K) 

CALL  ICIF2  (TK,0.D0,2,NPTS,T,F,FP,F1,F2) 

FI(K)=0.D0 

CALL  ICIF2  (TK,0.D0,3,NPTS,T,F,FP,F1,F2) 

F2(K)=0.D0 
END  DO 
END  IF 

CALL  ICIF2  (TIME,VALUE,NJ,NPTS,T,F,FP,F1,F2) 

RETURN 

901  FORMAT  (I5,5X,2D  10.0) 

902  FORMAT  (3D  10.0) 

903  FORMAT  (////,  1 0X,26HNUMERICAL  INTEGRATION  DATAy/,5X,18HNO.  OF  POI 
INTS  =, I5y,5X,18HINnTAL  VELOCITY  -,lPD15.6,/,5X,18HINmAL  DIS 

2P  =lPD15.6y,15X,4HTIME,15X,9HFCN-VALUE,lIX,14HFCN-DERIVATIVE 

V) 

904  FORMAT  (5X,lP3D20.4y) 

END 
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SUBROUTINE  ICIF2  (TIME, VALUE,NJ,NPTS,T, FTP, FTF2) 

Cbrc 

Cbrc  CODE  CLEAN-UP  -  D:rP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  T(26),F(26),FP(26),F  1  (25),F2(25),G(4),PHI{4) 

C 

C....  DETERMINE  INTERVAL  NUMBER  IN 
C 

IN=1 

DO  K=2,NPTS 
IF  (TIME  LE.  T(K))  EXIT 
IN-IN+1 
END  DO 
C 

C....  CHECK  UPPER  BOUND 
C 

IF(IN.GENPTS)THEN 
WRITE  (6,90 1 )  TIME,T(NPTS) 

IN=NPTS-1 
END  IF 
C 

C....  SET  UP  FUNCTIONAL  VALUES  FOR  APPROPRIATE  INTERVAL 
C 

TI=T(IN) 

TJ-T(IN+1) 

DT=TJ-TI 


G(1>=F(IN) 

G(2)=FP(IN) 

G(3)=F(IN+1) 

G(4)-FP(IN+1) 

X=TIME-TI 

C 

C....  TRANSFER  TO  APPROPRIATE  NUMBER  OF  INTEGRATIONS 
C 

IF(NJ.EQ.1)THEN 

C 

C....  FUNCTIONAL  VALUE 
C 

T1=1.D0 

XL=XT)T 

XL2=XL*XL 

XL3=XL*XL2 

CON-O.DO 

ELSE  IF  (NJ.EQ.2)  THEN 
C 

C....  ONE  INTEGRATION 
C 

T1=X 

XL-X**2/(2.DO*DT) 

XL2=X**3/(3,D0*DT**2) 

XL3=X**4/(4.D0*DT**3) 

CON=Fl(IN) 

ELSE  IF  (NJ.EQ.3)  THEN 
C 

C....  TWO  INTEGRATIONS 
C 

T1=X**2/2.D0 

XL=X**3/(6.D0*DT) 

XL2=X**4/(  1 2.D0*DT**2) 

XL3=X*^5/(20.D0*DT**3) 

CON=X*Fl(IN)+F2(IN) 

END  IF 
C 

C  ...  EVALUATION  OF  APPROPRIATE  FUNCTION 
C 

PHI(1)=T1-3.D0*XL2+2.D0*XL3 

PHI(2)=(XL-2.D0*XL2+XL3)*DT 

PHI(3)=T1-PHI(1) 

PHI(4HXL3-XL2)*DT 

VALUE=CON 

DOK=I,4 

VALUE=VALUE+PHI(K)*G(K) 

END  DO 


26 


RETURN 


C 

901  FORMAT  (///,10X,34H  WARNING  -  AN  INTEGRATION  POINT  X=,D20.8,/, 
128X,35HIS  GREATER  THAN  THE  MAXIMUM  VALUE  =,D20.8,/,28X,69HIT  IS 
2  ASSUMED  THIS  X  IS  IN  THE  LAST  INTERVAL  EXECUTION  CONTINUING,//) 

END 


27 


SUBROUTINE  INCODE  (NUM,JJ,NBASE,NTERMS) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

Cbrc 

Cbrc  CODE  CLEAN-UP  -  DTP 
Cbrc 

DIMENSION  JJ{NTERMS) 

C 

C....  NUM  =  RETURNS  CODED  NUMBER 

C....  JJ  =  TERMS  TO  BE  CODED  INTO  NUM  I  TO  NTERMS 

C  ...  NBASE  =  BASE  USED  TO  CODE  NUM 

C 

NUM=0 

DO  K=  I, NTERMS 

NUM=NUM+JJ(K)*NBASE**(NTERMS-K) 

END  DO 
RETURN 
END 


SUBROUTINE  IODECLS(INP,  OUT,  PLT) 

INTEGER  INP,  OUT,  PLT,  LUTRM,  LUIN,  LUOUTP,  LUPLT 
CHARACTER*!  ANS,  QUOTE 
CHARACTER*64  NAINP,NAOUT,NAPLT 
CHARACTER*80  ITITLE 
LOGICAL  EXIST 

COMMON  /DEVS/LUTRM,  LUIN,  LUOUTP,  LUPLT 
COMMON  /LABELS/NAINP,NAOUT,NAPLT 
QUOTE-"*’ 

LUTRM-0 
LUIN -5 
LUOUTP.-  6 
LUPLT  =  7 
C 

C  TERMINAL:  LOGICAL  UNIT  0 
C  INPUT:  LOGICAL  UNIT  1  (DATA  FEE) 

C  OUTPUT:  LOGICAL  UNIT  2 
C  PLOT  FEE:  LOGICAL  UNIT  3 
C 

EXIST -FALSE. 

E  (INP  .NE.  0)  THEN 

WRITE(LUTRM,’(//,5X,"ENTER  INPUT  FEE  NAME.")') 

5  READ(LUTRM,'(A64)')NAINP 

INQUIRE(FEE=NAINP,EXIST-EXIST) 

E  (EXIST)  THEN 

OPEN(LUIN,FEE-NAINP,STATUS='OLD') 

WRITE(LUTRM,'(//,5X, "INPUT  FEE  NAME:  ",A64)’)  NAINP 
ELSE 

WRITE(LUTRM,'(5X,"***  FEE  NAME:  ",A64,/,5X, 

*  "NOT  FOUND")')  NAINP 
WRITE(LUTRM;(/,5X, "ENTER  A  NEW  FEE  NAME.")') 

GOTO  5 

ENDE 

ENDE 

EXIST -.FALSE. 

E  (OUT  .NE.  0)  THEN 

WRITE(LUTRM,'(/,5X,"ENTER  OUTPUT  FEE  NAME.")') 

1 0  READ(LUTRM,’(A64)’)  NAOUT 

INQUIRE(FEE-NAOUT,EXIST=EXIST) 

E(EXIST)  THEN 

WRITE(LUTRM,'(5X,"***  FEE  NAME:  ",A64;,5X, 

*  "ALREADY  EXISTS.  DO  YOU  WISH  TO  OVERWRITE  IT?  ( Y/N)")') 

*  NAOUT 

READ(LUTRM,'(A1)')  ANS 
E(ANS  .EQ.  'Y  .OR.  ANS  .EQ.  'y')  THEN 
OPEN(LUOUTP,FEE=NAOUT,IOSTAT=ERR,STATUS-'OLD', 

*  BLOCKSlZE-2048) 

REWIND(UNIT=LUOUTP) 

ELSE 

WRITE(LUTRM,'(/,5X, "ENTER  A  NEW  FEE  NAME")') 

GOTO  10 
ENDE 
ELSE 

OPEN(LUOUTP,FEE-NAOUT,IOSTAT=ERR,STATUS='NEW', 

*  BLOCKSIZE-2048) 

ENDE 

WRITE(LUTRM,'(//,5X,"OUTPUT  FEE  NAME:  ",A64)')  NAOUT 
WRITE(LUTRM,'(/,5X,"DO  YOU  WISH  TO  WRITE  A  TITLE  LINE  ON  THE", 

*  "OUTPUT  FEE?  (Y/N)")') 

READ(LUTRM,’(AI)')  ANS 

E(ANS  .EQ.  'Y  .OR.  ANS  .EQ.  'y')  THEN 
WRITE(LUTRM,*(/,5X,''ENTER  A  TITLE  LINE.")') 

READ(LUTRM,'(A80)')  ITITLE 
WRITE(LUOUTP,'(  A 1  ,A80,  A 1 )')  QUOTE,ITITLE,QUOTE 
ENDE 
ENDE 

EXIST -.FALSE. 

E  (PLT  .NE.  0)  THEN 

WRITE(LUTRM,'(/,5X,"ENTER  OUTPUT  PLOT  FEE  NAME.")’) 

1 5  RE  AD(LUTRM,’(A64)’)  NAPLT 

INQUIRE(FEE=NAPLT,EXIST=EXIST) 

E(EXIST)THEN 

WRITE(LUTRM,’(5X,"***  FEE  NAME:  ",A64,/,5X, 

*  "ALREADY  EXISTS.  DO  YOU  WISH  TO  OVERWRITE  IT?  (Y/N)")') 

*  NAPLT 

READ(LUTRM,’(A1)')  ANS 
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IF(ANS  .EQ.  'V  OR.  ANS  EQ. '/)  THEN 
OPEN(LUPLT,FILE=NAPLT,IOSTAT-IERR,STATUS=’OLD') 
REWIND(UNrT-LUPLT) 

ELSE 

WR1TE(LUTRM;(/,5X,"ENTER  a  new  file  NAME")') 
GOTO  15 
END  IF 
ELSE 

0PEN(LUPLT,FILE=NAPLT,I0STAT=IERR,STATUS='NEW') 
END  IF 

WRITE(LUTRM;(//,5X,"PL0T  file  NAME:  ",A64)’)  NAPLT 
END  IF 
RETURN 
END 
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SUBROUTINE  LOCFRC  (JE,DISP,ROT,AFORCE,BMOMT,E,INDEXJI,STRAIN,STRE 
1  SS,STRS,SMASS,IX,EL,MTYP,NOPT,NUMEL,ZC, INMESH) 

C 

Cbrc 

Cbrc  ADDED  INCLUDES  AND  REMOVED  GO  TO'S  -  DIP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

INCLUDE  'ADJUST.COM' 

INCLUDE  'DYNAM.COM’ 

INCLUDE  'CONTRL.COM’ 

C 

DIMENSION  DISP(2),  R0T(6),  AF0RCE(6),  BM0MT(6),  E(12,NE),  INDEX( 

1  NTNDEX),  STRArN(NSTRAI),  STRESS(NSTRES),  SMASS( 

2  NSMASS),  IX(14,N1X),  STRS(NSTRS) 

DIMENSION  ZC(NZC),INMESH(NINMEH) 


DATA  ISKIP/0/ 

...  NOPT=!  -  3-D  AXIAL  SPRING  ELEMENT 

....  N0PT=2  -  3-D  LINEAR,  ELASTIC  RECTANGULAR  BEAM  ELEMENT 
...  N0PT=3  -  3-D  SPINAL  DISK  BEAM  ELEMENT. 

MODIFIED  FEB,  1978 

A.  CUBIC  STIFFENING  OF  SPRING  ELEMENTS 

1.  EXPLICIT  ONLY 

2.  STIFFNESS  PROPORTIONAL  DAMPING  ONLY 

B.  CALL  TO  INJURY  CRITERIA  SUBROUTINE 
LIFK0NTRL(15)=1 

IF  (NOPT.EQ.  1 )  IND=INDEX(  JE)+ 1 2 
IF  (N0PT.EQ.2)  IND=INDEX(JE)+24 
IF  (N0PT.EQ.3)  IND=INDEX(JE)+34 
INDB=INDEX(JE)+36 
SDPY-E(9,MTYP) 

SDPZ=E(10,MTYP) 

EPSOLD=STRS(IND) 

STRS(IND)=DISP(2) 

IF(I1.GT.I)GOTO  16 

IF  (N0PT.LE.2)  THEN 
STRAIN(1)=DISP(2) 

STRAIN{2)-DISP(2) 

...  CALCULATE  ELEMENT  STRESSES 

...  CALL  STRES(JE,MTYP,STRAIN,STRESS,E,STRS,I1,IND) 

STRESS(  1  )=E(2,MTYP)*STRAIN(  1 ) 

...  STORE  STRESSES  AND  STRAINS  IN  STRS 

STRS(IND)=STRAIN(i) 

STRS(IND+ 1  )=STRESS(  1 ) 

END  IF 

...  CALCULATE  ELEMENT  STIFFNESSES 

CSTIF=O.DO 

IF  (NOPT.EQ.  1)  THEN 
ASTIF=E(2,MTYP)*E(7,MTYP)/EL 
IF  (E(7,MTYP).LT.O.)  ASTIF=E(2,MTYP) 

CSTIF=O.DO 

CSTIF=E(3,MTYP) 

ELSE  IF  (N0PT.EQ.2)  THEN 
ASTIF=E(2,MTYP)*E(7,MTYP)/EL 
IF  (E(7,MTYP).LT.O.)  ASTIF-E{2,MTYP) 

CSTIF=O.DO 

YM=E(2,MTYP) 

POIS=E(6,MTYP) 

H=E(8,MTYP) 

T=E(5,MTYP) 

SM=YM/(2  .D0*(  1  .DO+POIS)) 

BYSTIF=YM*(H*T**3)/(EL*12.DO) 
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BZSTIF-YM*(T*H*  *  3  )/(EL*  1 2.D0) 

IF  (H.GT.T)  THEN 
TSTIF=237D0*SM*(H*T**3)/EL 
ELSE 

TSTIF=.237D0*SM*(T*H**3)/EL 
END  IF 

ELSE  IF  (N0PT.EQ.3)  THEN 
ASTIF=E(1,MTYP) 

TSTIF=E(2,MTYP) 

AYROT=(DABS(ROT(3))+DABS(ROT(4)))/2.DO 
AZROT=(DABS(ROT(5))+DABS(ROT(6)))/2.DO 
BYSTIF=E(3,MTYP)+E(5,MTYP)*AYROT*AYROT 
BZSTIF=E(4,MTYP)+E(6,MTYP)*AZR0T*AZR0T 
END  IF 
C 

C  ...  CALCULATE  INTERNAL  ELEMENT  DAMPING  FORCES  ' 

C 

FDAMP=O.DO 

DMIY=0.D0 

DMJY=0.D0 

DMIZ=0.D0 

DMJZ=0.D0 

C 

C....  PERCENT  CRITICAL  DAMPING 
C 

IF  (KONTRL(8).LE.O)  THEN 
PCAD=E(n,MTYP) 

N3=D((3,JE) 

N4=IX(4,JE) 

N3N=6*(N3-1)+I 

N4N=6*(N4.1)+1 

IF  (PCAD.NE.O.)  THEN 
AMASS=(SMASS(N3N)+SMASS(N4N))/2.D0 
DD0T=(DISP(2)-EPS0LD)*EL/DELT 
FDAMP=2.DO*PCAD*DDOT*DSQRT(AMASS*ASTIF) 

END  IF 

IF  (NOPT.NET)  THEN 
PCBD=E(12,MTYP) 

IF  (PCBD.NE.O.)  THEN 

AYMASS={SMASS(N3N+4)+SMASS(N4N+4))/2.D0 

AZMASS={SMASS(N3N+5)+SMASS(N4N+5))/2.D0 

DYD0T=(R0T(3)-STRS(INDB+ 1  )-ROT(4)+STRS(INDB4-2))/DELT 

DZDOT=(ROT(5)-STRS(INDB+3)-ROT(6)+STRS(INDB+4))/DELT 

DMIY=2.DO*PCBD*DYDOT*DSQRT(AYMASS*BYSTIF) 

DMJY=-DMIY 

DMIZ=2.DO*PCBD*DZDOT*DSQRT(AZMASS*BZSTIF) 
DMJZ=-DMIZ 
END  IF 
END  IF 
C 

C....  VISCOUS  DAMPING 
C 

ELSE  IF  (KONTRL(8).GT.O)  THEN 
PVAD=E(1  LMTYP) 

IF(N0PT.EQ.1)THEN 

IF  (PVAD.NE.O)  FDAMP=PVAD*ASTIF*(DISP(2)-EPS0LD)*EL/DELT 
ELSE 

IF  (PVAD.NE.O)  FDAMP=PVAD»ASTIF*(DISP(2)-EPS0LD)*EL/DELT 
PVBD=E(I2,MTYP) 

IF(PVBD.NE.O.)THEN 
D  YI=(ROT(3  )-STRS(INDB+ 1  ))/DELT 
DYJ=(ROT(4)-STRS(INDB+2))/DELT 
DZI=(ROT(5)-STRS(INDB+3))/DELT 
DZJ=(ROT(6)-STRS(INDB+4))/DELT 
DMIY=PVBD*BYSTIF*((4.D0+SDPZ)*DYI+ 

1  (2  .DO-SDPZ)*DYJ)/(  1  .DO+SDPZ) 

DMTY=PVBD*BYSTIF*((2.D0-SDPZ)*DYI+ 

1  (4.D0+SDPZ)*D  YJ)/(  1 .  DO+SDPZ) 

DMIZ=PVBD*BZSTIF*((4.D0+SDPY)*DZI+ 

!  (2.D0-SDPY)*DZJ)/(  1  .DO+SDPY) 

DMJZ=PVBD*BZSTIF^((2.D0-SDPY)*DZI+ 

1  (4.D0+SDP  Y)*DZ  J)/(  1  .DO+SDPY) 

END  IF 
END  IF 
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END  IF 


...  CALCULATE  ELEMENT  INTERNAL  FORCES 

IF(N0PT.NE.1)THEN 
TORC=O.DO 
DN0L=DISP(2)*EL 

...  SPRING  ELEMENT  TORC  IS  TENSION  OR  COMPRESSION  OPTION 
...  TORC  <  0  SPRING  IS  COMPRESSION  ONLY 
...  TORC  =  0  SPRING  IS  BOTH  TENSION  AND  COMPRESSION 
...  TORC  >  0  SPRING  IS  TENSION  ONLY 

ELSE  IF  (NOPT.EQ.  1)  THEN 
TORC=E(l,MTYP) 

SLACK=E(4,MTYP) 

DN0L=(DISP(2)-SLACK)*EL 

IF(TORC.LT.O)THEN 
IF  (DNOL.GE.O.)  DNOL=O.DO 
ELSE  IF  (TORC.GT.O)  THEN 
IF  (DNOL.LE.O.)  DNOL=O.DO 
END  IF 
END  IF 

AF0RCE(2HASTIF+CSTIF*DN0L*DN0L)*DN0L+FDAMP 
IF  (TORC.LT.O..AND.AFORCE(2).GT.O.)  AFORCE(2)=O.DO 
IF  (TORC.GT.O..AND.AFORCE(2).LT.O.)  AFORCE(2)=O.DO 
AFORCE(  1  )--AFORCE(2) 

IF(NOPT.EQ.l)GOTO  17 

...  CALCULATE  INTERNAL  MOMENTS 

BMOMT(2)-TSTIF*ROT(  1 ) 

BMOMT(  1  )=-BMOMT(2) 

BMOMT(3)-DMIY+BYSTIF*((4.DO+SDPZ)*ROT(3)+(2.DO-SDPZ)*ROT(4))/ 

1  (l.DO+SDPZ) 

BMOMT(4)=DMJY+BYSTIF*((2.DO-SDPZ)*ROT(3)+(4.DO+SDPZ)*ROT(4))/ 

1  (l.DO+SDPZ) 

BMOMT(5)=DMIZ+BZSTIF*((4.DO+SDPY)*ROT(5)+(2.DO-SDPY)*ROT(6))/ 

1  (l.DO+SDPY) 

BMOMT(6)=DMJZ+BZSTIF*((2.DO-SDPY)*ROT(5)+(4.DO+SDPY)*ROT(6))/ 

1  (I.DO+SDPY) 

AFORCE(4)=-(BMOMT(5)+BMOMT(6))/EL 
AFORCE(3)=-AFORCE(4) 

AFORCE(6HBMOMT(3)+BMOMT(4))/EL 
AFORCE(5)=-AFORCE(6) 

IF{KONTRL(15).EQ.O)GOTO  17 

IF(TIME.LT.DELT  .AND.  ISKIP.LE.O)  THEN 
READ(5,100)  JSTART,JEND 
WRITE(6, 100)  JSTART,JEND 
NB=JEND-JSTART 
ISKIP=1 
END  IF 

IF(JE.LT.JSTART.OR.JE.GT.JEND)  GO  TO  17 

CALL  SPINIF  (JE,JSTART,JEND,NB,AF0RCE,BM0MT,ZC,NZC,INMESH,NINMEH) 
GOTO  17 

..  ELASTO  -  PLASTIC  BEAMS 

6  IND=INDEX(JE)+41 
IGO=0 

ISEC=D((I1,JE) 

..  CALCULATE  AND  STORE  INTERNAL  ENERGIES 

17  IKE=INDEX(NUMEL+1) 

IF  (NOPT.NE.l)  IND=INDEX(JE)+24 
IADD=Il 

IF(NOPT.EQ.l)IADD=3 

C 

IABE=2 
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IF(N0PT.EQ.3)  IABE=0 
DLN=DISP(2)*EL 

STRS(IKE+MTYP)=STRS(IKE+MTYP)+.5DO*(AFORCE(2)+STRS(IND+IABE)) 
*  ♦(DLN-STRS(IND+IADD)) 

STRS(IND+IADD)=DLN 

IF  (NOPT.NE.l)THEN 
IADD=1 

IF  (N0PT.EQ.2)  IADD-3 
ROT(2)=ROT(I) 

DO  KX=2,6 
KI=IND+10+KK 
DRN=ROT(KK)-STRS(KI) 

STRS(IKE+NmT)=STRS(IK£+MTYP)+.5DO*(BMOMT(KK)+STRS( 

1  IND+IADD+KK))*DRN 

STRS(KI)=ROT(KK) 

END  DO 
END  IF 

....  STORE  LOCAL  INTERNAL  FORCES 

IF(NOPT.EQ.l)THEN 

STRS(IND+2)=AFORCE(2) 

RETURN 

ELSE  IF  (NOPT.EQ.2)  THEN 
N=IND+2 

ELSE  IF  (N0PT.EQ.3)  THEN 
N=IND 
END  IF 

STRS(N)=AFORCE(2) 

STRS(N+ 1  )=AFORCE(4) 

STRS(N+2)=AFORCE(6) 

DO  1=2,6 

STRS(N+l+I)=BMOMT(I) 

END  DO 

RETURN 

100  FORMAT  (2110) 

END 
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FUNCTION  LOFIX  (I) 

LOFIX=I 

RETURN 

END 


SUBROUTINE  PLOTER  (  NUMPNT,  XARRAY,  YARRAY,  CLABEL,  ULABEL,  M,  N  ) 
C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

C....  A  PLOTTING  SUBROUTINE  FOR  THE  LINE  PRINTER]] 

C....  DUE  TO  THE  COLUMN  AND  ROW  WIDTHS,  THIS  SUBROUTINE  MUS 

C....  DO  QUITE  A  BIT  OF  TRUNCATING,  HENCE  THE  ACCURACY  OF  THE  P 
C....  IS  RELATIVELY  CRUDE.  HOWEVER,  THE  MAIN  ADVANTAGE  OF  USIN 
C....  THIS  SUBROUTINE  IS  THE  SPEED  OF  THE  LINE  PRINTER  OUTPUT. 

C....  ALSO  NO  SPECIAL  HANDLING  INSTRUCTIONS  ARE  REQUIRED. 

C... 

C... 

c... 
c.... 
c.... 

c . 

C .  XARRAY  IS  THE  NAME  OF  THE  ARRAY  CONTAINING  THE  X-C 

C . 

C .  YARRAY  IS  THE  NAME  OF  THE  ARRAY  CONTAINING  THE  Y-C 

C . 

C . CLABEL  IS  THE  GRAPH  LABEL 

C . 

C . ULABEL  IS  THE  UNITS  LABEL 

C . 

C . XMIN  IS  THE  MINIMUM  X-VALUE  FOR  THE  PLOTTING  RAN 

C . 

C .  XMAX  IS  THE  MAXIMUM  X-VALUE  FOR  THE  PLOTTING  RAN 

C . 

C .  YMIN  IS  THE  MINIMUM  Y-VALUE  FOR  THE  PLOTTING  RAN 

C . 

C .  YMAX  IS  THE  MAXIMUM  Y-VALUE  FOR  THE  PLOTTING  RAN 

C... 

C .... 

C. ... 

C... 

C... 

C... 

C... 

c... 
c... 
c... 
c... 
c... 
c... 
c... 
c... 
c... 
c 

INCLUDE  ’ADJUST.COM’ 

DIMENSION  CHAR(lOl),  XARRAY(NT),  YARRAY(NA),  IX(50I),  IY(501), 

*  YVAL(3).  CLABEL(IO),  ULABEL(IO) 

DATA  BLANK,STAR,YPNT,XPNT,D0T,PNTM/1H  ,1H*,1HY,1HX,1H.,IHM/ 

C 

C....  ...  IF  NUMPNT>500,  REDEFINE  AS  500  ... 

C 

IF  (NUMPNT. GT.500)  NUMPNT=500 

DO  JDUM=  1,501 
IX(JDUM)=1 
IY(JDUM)=l 
END  DO 
C 

XMIN=XARRAY(1) 

XMAX=XARRAY(1) 

YMIN=YARRAY(1) 

YMAX=YARRAY(1) 

DO  IZ=1, NUMPNT 

IF  (XARRAY(IZ).GT.XMAX)  XMAX=XARRAY(IZ) 

IF  (XARRAY(IZ).LT.XMIN)  XMIN=XARRAY(IZ) 

IF  (YARRAY(IZ).GTYMAX)  YMAX=YARRAY(IZ) 

IF  (YARRAY(IZ).LT.YMIN)  YMIN-YARRAY(IZ) 

END  DO 

NUMBER=51 
FLNUMB=NUMBER 


NOTE...  A)  THE  SUBROUTINE  PAGE  EJECTS  TO  A  NEW  PAGE  TO  B 
PLOTS,  HOWEVER  IT  DOES  NOT  PAGE  EJECT  WHEN  FI 
AND  TWO  LINES  REMAIN  AT  THE  BOTTOM  OF  THE  PAG 
(THESE  REMAINING  LINES  MAY  BE  USED  TO  IDENTIF 
GRAPHS,  IF  WISHED,  IN  THE  CALLING  PROGRAM.) 

B)  THE  PROGRAM  AUTOMATICALLY  PLOTS  OVER  A  WHOLE 

C)  THE  X  AND  Y  ARRAYS  REMAIN  INTACT  IN  THE  SUBRO' 
AND  ARE  RETURNED  EXACTLY  AS  SENT. 

D)  IF  MORE  THAN  ONE  POINT  EXISTS  AT  A  LOCATION, 

AN  M-CHARACTER  IS  PLACED  AT  THAT  POINT. 

E)  IF  SOME  POINTS  ARE  OUT  OF  THE  RANGE  OF  THE  GR 
THEY  ARE  PLOTTED  ON  THE  BORDERS.  (HENCE  THE 
POINTS  ARE  INVALID.) 

BEGINNING  OF  ACTUAL  SUBROUTINE  PLOTER... 


NUMPNT  IS  THE  NUMBER  DATA  POINTS  TO  BE  PLOTTED 
(NUMPNT  MUST  NOT  EXCEED  500,  BUT  IF  IT 
ONLY  THE  FIRST  500  POINTS  ARE  CONSIDER 
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c 

YVAL(1)=YMAX 

YVAL(2HYMAX+YMIN)/2.D0 

YVAL(3)=YMIN 

C 

c .  SETTING  UP  X  ANDY  INTEGER  ARRAYS  . 

C 

DO  JJ=1,NUMPNT 
C 

IF  (YMAX-YMIN.EQ.O.)  GO  TO  7 

IY(JJH(YARRAY(JJ)-YMIN)/(YMAX-YMIN))*(FLNUMB-1.D0)+.5D0 
IF  (lY(JJ)  .GT.  NUMBER)  IY(JJ)=NUMBER 
IF  (lY(JJ))  6,6,8 

6  IY(JJ)=1 
C 

IF  (XMAX-XMIN.GT.O.)  GO  TO  8 

7  WRITE  (6,901) 

GO  TO  50 

8  IX(JJ)=((XARRAY(JJ)-XMIN)/(XMAX-XMIN))*(I00.D0)+.5D0 
IF  (D((JJ)  .GT.  101)  D((JJ)=101 

IF  (D((JJ)  .LE.  0)  D((JJ)=1 
C 

END  DO 
C 

C . SORTING  INTO  DESCENDING  lY-ARRAY  ORDER  . 

C 

LIM=NUMPNT-1 

13INT=1 

DOI=l,LIM 

IF  (IY(I+1)  .LE.  IY(I))  CYCLE 
TEMP=DC(I+I) 

IX(I+1)=DC(I) 

IX(I)=TEMP 

TEMP2=IY(I+1) 

IY(I+1)=IY(I) 

IY(I)=TEMP2 
INT=I 
END  DO 

IF(INT-l)  16,17,16 
16LIM=INT-1 
GOTO  13 

17  CONTINUE 
C 

C....  END  OF  SORTING  LOOP 

C....  ♦*♦*♦♦*******♦♦♦********♦♦♦♦♦***♦*♦*♦♦♦♦*♦♦*♦♦♦♦♦♦♦♦**♦♦♦♦♦♦♦♦♦♦♦♦ 

C....  FINDING  X-AXIS  &  Y-AXIS  POSITIONS,  IF  PRESENT] 

C 

IXKODE=0 

IYKODE=0 

C 

C....  ...FIRST  THE  Y-AXIS... 

C 

IF  (YMAX*YMIN)  18,18,21 

1 8  IXAXIS-{YMAX/'(YMAX-YMIN))*FLNUMB+.5D0 
IF  (IXAXIS  .LE.  0)  IXAXIS=1 

IXKODE=l 

C 

C...  ...THEN  THE  X-AXIS... 

C 

2 1  IF  (XMAX*XMIN)  22,22,25 

22  IYAXIS-((-XMIN)/(XMAX-XMIN))*10I.D0+.5D0 
IF  (lYAXIS  .LE.  0)  lYAXIS^l 

IYKODE=l 
25  CONTINUE 
C 

IF  (M  .EQ. -I)THEN 
WRITE(6,908)  (CLABEL(J),  J=l,i0) 

ELSE  IF  (M  .GT.  N)  THEN 

WRITE(6,902)  (CLABEL(I),  1=1,10),  (ULABEL(J),  J=l,7) 

ELSE 

WRITE  (6,907)  (CLABEL(I),  1=1,10),  (ULABEL(J),  J=l,10) 

END  IF 
C 

C....  BEGINNING  OF  ACTUAL  PLOT  LOOP 

C 
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KNTR=1 

KNTYAX=0 

C 

DO  49  LL=  UNUMBER 
C 

C....  SET  UP  PLOT  LINE 

C....  PLUG  IN  X-AXIS  IF  PRESENT  (IXKODE  =  1) 

C 

IF  (IXKODE)  29,29,26 

26  IF  (LL-DCAXIS)  29,27,29 

27  DOIJK=U101 
CHAR(IJK)=XPNT 

END  DO 
GO  TO  37 
C 

29  CHAR(I)=DOT 
CHAR(101)=DOT 

C 

DO  K=2,I00 
IF  (LL- 1)30,33,30 

30  IF  (LL-NUMBER)  31,33,31 
C 

C....  BLANK  OUT  ROW 

C 

31  CHAR(K)=BLANK 
END  DO 

GO  TO  35 
C 

C.  ..  IF  FIRST  OR  LAST  LINE,  ADD  BORDER  DOTS 

C 

33  DOKK=2,100 
CHAR(KK)=DOT 
END  DO 
C 

C....  IF  lYKODE  KNTR  SET,  ADD  Y  AXIS  LABEL 

C 

35  IF  (lYKODE  .GT.  0)  CHAR(IYAXIS)=YPNT 

37  CONTINUE 
C 

IF  (IY(KNTR)-((NUMBER+1)-LL))  44,38,44 
C 

38  ICOL=IX(KNTR) 

IF  (CHAR(ICOL)-STAR)  39,40,39 

39  IF  (CHAR(ICOL)-PNTM)  41,40,41 

40  CHAR(ICOL)=PNTM 
GO  TO  42 

C 

41  CHAR(ICOL)=STAR 
C 

42  IF  (KNTR-NUMPNT)  43,44,43 

43  KNTR=KNTR+1 

IF  {IY(KNTR-1  )-IY(KNTR))  44,38,44 
C 

C....  PRINTOUT  COMPLETED  ROW 

C 

44  IF  (LL- 1)48.48,45 

45  IF  (LL-26)  46,48,46 

46  IF  (LL-NUMBER)  47,48,47 
C 

47  WRITE  (6,903)  CHAR 
GO  TO  49 

C 

48  KNTYAX=KNTYAX+I 

WRITE  (6,904)  YVAL(KNTYAX),DOT,DOT,CHAR 
C 

49  CONTINUE 
C 

C....  END  OF  PLOTTING  LOOP 

c 

XMID=(XMIN+XMAX)/2.D0 
WRITE  (6,905)  XMIN,XMID,XMAX 
C 

IF(M.EQ.-1  )  GO  TO  54 
C 
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50  WRITE  (6,906) 
RETURN 


54  WRITE  (6,909)  (ULABEL(J),  J=I,10) 

RETURN 

901  FORMAT  (1H1//51X,19HALL  VALUES  ARE  ZERO///) 

902  FORMAT  ( T’,  30X,  10A4,  lOX,  8A4,  // ) 

903  FORMAT  (20X,10IA1) 

904  FORMAT(4X,D11.4,3X,2A1,101A1) 

905  FORMAT(2(20X,IH.,49X,lH.,49X,lH7),15X,Dn.4,39X,Dn.4,40X,Dll  4 

1/) 

906  FORMAT  (59X,14HTIME  -  SECONDS) 

907  FORMAT  ( T',  30X,  10A4,  lOX,  10A4,  // ) 

908  FORMAT  ( T',  SOX,  I0A4,  // ) 

909  FORMAT  (SOX,  10A4  ) 

END 
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SUBROUTINE  READIN  (SMASS,E,XC,YC,ZC,NODE,XT,YT,ZT,MESHIN,rNMESH,NO 
IDDIS, ANGLE) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

INCLUDE  'ADJUST-COM* 

INCLUDE ’SIZECOM- 
INTEGER  PRITYP,SECTYP 

DIMENSION  XC(NXC),  YC(NYC),  ZC(NZC),  E(12,NE),  NODE(14,NIX), 

!  NODDIS(NNODIS),  XT(NXO),  YT(NX1),  ZT(NDICOS),  JJ(7), 

2  SMASS(NSMASS),  ANGLE(9,NANGLE),  NNREAD(8),  MESHIN( 

3  NMESHN),  INMESH(NINMEH),  TMASS(4) 

INCLUDE  'DYNAM-COM* 

INCLUDE  ’OUTPA.COM’ 

INCLUDE  ’CONTRL.COM' 

C$ 

C$  COMMON  STATEMENTS  ADDED  TO  ACCOMODATE  I/O  DECLARATIONS 
C$ 

COMMON  /DEVS/LUTRM,  LUIN,  LUOUT,  LUPLT 
COMMON  /LABELS/NAINP,NAOUT,NAPLT 
DATA  PRITYP,SECTYP/IHP,1HS/ 

WRITE  (6,901)  NNODE,NPRI,NAXOR,NELE,NUMMAT,NUMDIS,MXSTEP,NDGREE,DE 

1LT,N0DMAX 

NODET=NNODE+NAXOR 

READ  (5,902)  (K0NTRL(I),I=1,16) 

WRITE  (6,903)  KONTRL(l) 

WRITE  (6,904)  KONTRL(2) 

WRITE  (6,905)  KONTRL(3) 

WRITE  (6,906)  KONTRL(4) 

WRITE  (6,907)  KONTRL(5) 

WRITE  (6,908)  KONTRL(6) 

WRITE(6,913)  KONTRL(7) 

WRITE(6,9 1 5)  KONTRL(8) 

WRITE(6,916)  KONTRL(9) 

WRITE(6,917)  KONTRL(IO) 

WRITE(6,9 1 8)  KONTRL(  1 1 ) 

WRITE(6,9180)  KONTRL(12) 

WR1TE(6,9 181)  KONTRL(  1 3) 

WRITE(6,9 1 82)  KONTRL(14) 

WRITE(6,9183)  KONTRL(15) 

WRITE(6,9184)  KONTRL(16) 

DOI=l,NUMMAT 
READ  (5,919)  MTYPE 
READ  (5,920)  (E(J, MTYPE),  J=  1,12) 

WRITE  (6,921)  MTYPE,(E(J,MTYPE),J=1,12) 

END  DO 

....  READ  AND  PRINT  NODAL  POINT  DATA 

NEQ=NPRI*NDGREE 
DO  LEN=1,NEQ 
SMASS(LEN)=0.D0 
END  DO 

IF(KONTRL(l).EQ.  I )  THEN 
WRITE(6,923) 

ELSE 

WRITE(6,922) 

END  IF 

WRITE  (6,924) 

INTPRI=0 

NCOUNT=0 

INTSEC=NPRI 

5  READ  (5,926)  MESH, NODTYP,XORD,YORD,ZORD,(TMASS(K),K- 1,4) 
NCOUNT-NCOUNT+1 

IF  (NNODE.EQ.NPRI)  GO  TO  8 
IF  (TMASS(l))  6,7,8 

6  WRITE  (6,927)  MESH,TMASS(1) 

STOP 

7  IF  (NODTYP.EQ.PRnTP)  GO  TO  8 
IF  (NODTYP.EQ.SECTYP)  GO  TO  9 
IF(KONTRL(7))  9,9,8 

8  INTPRI=INTPRI+I 
INT=INTPRI 
GOTO  10 
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9  INTSEC-INTSEC+l 
INT=rNTSEC 

10  WRITE  (6,925)  INT,MESH,NODTYP,XORD,YORD,ZORD,(TMASS(K),K=l,4) 
INMESH(MESH)=INT 

MESHIN(INT)=MESH 

XC(INT)=XORD 

YC(INT)=YORD 

ZC(INT)=ZORD 

C 

IF  (TMASS(1).NE.0.)  THEN 
LEN=NDGREE*(INT- 1 )+ 1 
SMASS(LEN)=TMASS(  I ) 

SMASS(LEN+ 1  )=TMASS(  I ) 

SMASS(LEN+2)=TMASS(  1 ) 

SMASS(LEN+3)=TMASS(2) 

SMASS(LEN+4)=TMASS(3) 

SMASS(LEN+5)=TMASS(4) 

END  IF 

IF  (NNODE»NCOUNT)  12,13,5 

12  WRITE  (6,928)  MESH 
STOP 

13  CONTINUE 

IF  (NAXOR.LE.O)  GO  TO  15 

14  READ  (5,926)  MESH,NODTYP,XORD,YORD,ZORD 
NCOUNT=NCOUNT+l 

INTSEC=INTSEC+I 

WRITE  (6,925)  INTSEC,MESH,NODTYP,XORD,YORD,ZORD 
INMESH(MESH)=INTSEC 
MESHIN(INTSEC)=MESH 
XC(INTSEC)-XORD 
YC(INTSEC)=YORD 
ZC(INTSEC)=ZORD 
IF  (NODET-NCOUNT)  12,15,14 
C 

15  CONTINUE 

....  READ  AND  PRINT  ELEMENT  NODES 

WRITE  (6,929) 

N=0 

16N=N+1 

READ  (5,930)  M,(NNREAD(LEN),LEN=l,8),(NODE(K,N),K=9,14) 

DO  LEN-1,8 
NLEN=NNREAD(LEN) 

IF  (NLEN  EQ.  0)  THEN 
NODE(LEN,N)=0 
ELSE 

NODE(LEN,N)-INMESH(NLEN) 

END  IF 
END  DO 

WRITE  (6,931)  N,(NNREAD(I),I=l,8),(NODE(K,N),K=9,14),(NODE(J,N),J= 
ll,4),NODE(8,N) 

IF  (N.LT.NELE)  GO  TO  16 

...  PRINT  NODAL  DATA  IN  COORDINATE  SYSTEM  NOT  INPUT 

...  PASS  ON  TO  REMAING  CODE  NODAL  DATA  IN  GLOBAL  COORDINATES 

...  REGARDLESS  OF  WHICH  SYSTEM  WAS  CHOOSEN  FOR  INPUT 

IF  (KONTRL(  1  ).EQ.  I)  GO  TO  30 
WRITE  (6,932) 

WRITE  (6,924) 


SIGN=1.D0 


DO  29  KK=1,NELE 

...  CHECK  FOR  PVP  ELEMENTS  (ETYPE=4) 

IF  (NODE(10,KK).EQ.4)  GO  TO  22 
C 

Nl=NODE(l,KK) 

N2=NODE(2,KK) 

N3=NODE(3,KK) 

N4-NODE(4,KK) 
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CHECK  FOR  PLATE  ELEMENTS  (ETYPE=5) 

IF  (NODE(10,KK).EQ.5)  GO  TO  24 

CHECK  FOR  PRIMARY  OR  SECONDARY  NODES 

IF  (N3  .EQ.  0)  THEN 
N3=N1 

NODE(3,KK)=Nl 
END  IF 

IF  (N4  .EQ.  0)  THEN 
N4=N2 

NODE(4,KK)=N2 
END  IF 

XT(N1)=XC(N1)-XCCN3)*SIGN 
YT(N1  )=YC(NI  )-YC(N3)*SIGN 
ZT(N  1  )=ZC(N  1  )-ZC(N3)*SIGN 
XT(N2)=XC(N2)-XC(N4)*SIGN 
YT(N2)=YC(N2)-YC(N4)*SIGN 
ZT(N2)=ZC(N2)-ZC(N4)*SIGN 
XT(N3)=XC(N3) 

YT(N3)=YC(N3) 

ZT(N3)=ZC(N3) 

XT(N4)=XC(N4) 

YT(N4)=YC(N4) 

ZT(N4)=ZC(N4) 

C 

GOTO  29 
C 

22  N7=NODE(7,KK) 

N8-NODE(8,KK) 

DO  11=  1,3 
NI=NODE(II,KK) 

NJ=NODE(II+3,KK) 

XT(NI)=XC(NI)-XC(N7)*SIGN 
YT(NI)=YC(N1)-YC(N7)*SIGN 
ZT(NI)=ZC(NI)-ZC(N7)*SIGN 
XT(NJ)=XC(NJ)-XC(N8)*SIGN 
YT(NJ)=YC(NJ)-YC(N8)*SIGN 
ZT(NJ)=ZC(NJ>ZC(N8)*SIGN 
END  DO 
XT(N7)=XC(N7) 

YT(N7)=YC(N7) 

ZT(N7)=ZC(N7) 

XT(N8)=XC(N8) 

YT(N8)=YC(N8) 

ZT(N8)=ZC(N8) 

C 

GO  TO  29 
C 

24  N5=NODE(5,KK) 

N6=NODE(6,KK) 

IF  (N4.NE.0)  GO  TO  25 
N4=N1 

NODE(4,KK)=Nl 

25  IF  (N5.NE.0)  GO  TO  26 
N5=N2 

NODE(5,KK)=N2 

26  IF  (N6.NE.0)  GO  TO  27 
N6=N3 

NODE(6,KK)=N6 

27  DO  11=1,3 
NI=NODE(II,KK) 

NJ=NODE(n+3,KK) 

XT(NI)=XC(NI)-XC(NJ)*SIGN 

YT(NI)=YC(NI).YC(NJ)*SIGN 

ZT(NI)=ZC(NI)-ZC(NJ)*SIGN 

XT(NJ)=XC(NJ) 

YT(NJ)=YC(NJ) 

ZT(NJ)=ZC(NJ) 

END  DO 
C 

29  CONTINUE 
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WRITE  (6,933)  (KK,MESHIN(KK),XT(KK),YT(KK),ZT(KK),KK==l,NNODE) 

C 

IF  (SIGN)  31,33,33 
C 

30  WRITE  (6,934) 

WRITE  (6,924) 

C 

SIGN=-1.0 

C 

GOTO  19 

31  DOKK=I,NNODE 
XC(KK)=XT(KK) 

YC(KK)=YT(KK) 

ZC(KK)=ZT(KK) 

END  DO 
33  CONTINUE 
C 

C....  READ  DISPLACEMENT  NODE  CODES 
C 

NPDIS=0 

IF  (NUMDIS.EQ.O)  GO  TO  38 
WRITE  (6,935) 

DO  I=I,NUMDIS 

READ  (5,936)  (JJ(K),K-1,7),(ANGLE(LS,I),LS=1,6) 

JJ1=JJ(I) 

JJ(1)=INMESH(JJI) 

DO  J=2,7 

IF  (JJ(J).GT.l)  NPDIS=NPDIS+1 
END  DO 

CALL  INCODE  (NODDIS(I),JJ,3,7) 

CALL  DECOD  (NODDIS(I),JJ,3,7) 

IF  (JJ(7).GT.NNODE)  WRITE  (6,947)  JJ(7) 

JJ1=JJ(7) 

JJ(7)=MESHIN(JJ1) 

DO  LS=1,3 

IF  (ANGLE(LS,I).NE.O.)  GO  TO  36 
END  DO 

ANGLE(1,I)=1.D0 

ANGLE(5,I)=1.D0 

36  CALL  CROSS  (ANGLE(l,I),ANGLE(4,I),ANGLE(7,I),DUM,CMAG,0) 

WRITE  (6,937)  I,JJ(7),(JJ(J),J-I,6),(ANGLE(LS,I),LS=1,6) 

END  DO 
38  CONTINUE 
C 

RETURN 

901  FORMAT  (1  HO, 4X,37HNUMBER  OF  PRIMARY  AND  SECONDARY  NODES,IIO/5X,37H 

INUMBER  OF  PRIMARY  NODES  ,I10/5X,37HNUMBER  OF  AXIS  ORI 

2ENTATION  NODES  ,II0/5X,37HNUMBER  OF  ELEMENTS 

3  ,I10/5X,37HNUMBER  OF  MATERIALS  ,I10/5X,37HNUMBER 

4  OF  FIXED  NODES  ,I10/5X,37HMAXIMUM  NUMBER  OF  INCREM 

5ENTS  ,1 1 0/5X,37HNO.  OF  DEGREES  OF  FREEDOM  PER  NODE  ,1 1 0/ 

65X,37HTIME  INCREMENT  ,IPDI6.5y5X,37HMAXIMUM 

7  NODE  NUMBER  ,110,/) 

902  FORMAT  (1615) 

903  FORMAT  (/lX,10HKONTRL(l)=,I5,10X,47H0  -  SECONDARY  NODES  INPUT  IN  G 
ILOBAL  COORDINATES7,26X,46Hl  -  SECONDARY  NODES  INPUT  IN  LOCAL  COOR 
2DINATES) 

904  FORMAT  (/,7X,4H(2)=.I5,I0X,34H1  -  OMIT  PRINTING  OF  UOUT  AND  SOUT) 

905  FORMAT  (/,7X,4H(3)=,I5,I0X,44H0  -  USE  EIGEN  TO  FIND  PRINCIPLE  INER 
ITIA  AXESy,26X,54Hl  -  PRINCIPLE  INERTIA  AXES  ARE  THE  SAME  AS  GLOBA 
2L  AXESy,26X,54H2  -  INITIAL  ORIENTATION  DATA  FOR  RIGID  BODIES  IS  I 
3NPUT) 

906  FORMAT  (/,7X,4H(4)=,I5,14X,34HNUMBER  OF  SLIDING  INTERFACE  PLANES) 

907  FORMAT(/,7X,4H(5)-,I5,10X,45HNEWMARK  -  BETA  TEMPORAL  INTEGRATION  P 
1  ARAMETERy.26X,48H0  -  EXPLICIT  (  ONLY  OPTION  CURRENTLY  AVAILABLE  ) 

2) 

908  FORMAT(/,7X,4H(6)=,I5,10X,’NO.  OF  SECONDARY  BODIES  FOR  CONTACT) 

913  FORMAT(/,7X,4H(7)=,I5,10X,’0  -  DEFAULT  NODE  TYPE  S  SECONDARY  NODE’ 

.  y,26X,'  1  -  DEFAULT  NODE  TYPE  P  PRIMARY  NODE') 

915  FORMAT(/,7X,4H(8)=,I5,10X,37H0  -  FRACTION  CRITICAL  ELEMENT  DAMPING 

1  y,26X,4 IHl  -  STIFFNESS  PROPORTIONAL  GLOBAL  DAMPING ) 

916  FORMAT(/,7X,4H(9)=,I5,10X,’0-RECTANGULAR  BEAM  CROSS  SECTION,  23 
1H(0NE  INTEGRATION  POINT)y26X,l7Hl-CROSS  SECTIONAL, 24HGEOMETRIES  T 
20  BE  READ  IN) 

917  FORMAT(/,6X,5H(10)=,I5,10X,'RESTART  CONTROL’) 
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918  FORMAT(1HO,5X,5H(1 1)=  I5,10X,32HQ  ARRAY  OUTPUT  AT  THIS  TIME  STEP) 

9180  FORMAT(/,6X,5H(12)=,I5,10X,12H  -  NOT  USED) 

9181  FORMAT(/,6X,5H(13)=,I5,10X,13H0  -  NO  ACTION,/, 26X,52H1  -  NUMERICAL 
1  INTEGRATION  DATA  TO  BE  READ  IN  BY  ICIF) 

9182  FORMAT(/,6X,5H(14)=,I5,10X,'0  -  ALL  NODES  ASSUMED  INITIALLY  IN  CON 
ITACT  WITH  SEATBACK7,26X,T  -  ARRAY  OF  INITIAL  DISTANCES  FROM  SEA 
2TBACKIS  INPUT) 

9183  FORMAT(/,6X,5H(I5)=,I5,10X,13H0  -  NO  ACTION/, 2 6X,24H1  -  SPINIF  DA 
ITA  REQUIRED) 

9184  FORMAT(/,6X,5H(16)=  I5,10X,13H0  -  NO  ACTIONy,26X,31Hl  -  RETRACTIO 
IN/  —  SIMULATION) 

919  FORMAT  (I5,D10.4) 

920  FORMAT  (6D10.4) 

92 1  FORMAT  ( 1H0,4X,3HMAT,I3, 10X/3X,8HE-MATRD(,  IP6D  18.5/1  IX,  1P6D 1 8.5) 

922  FORMAT  (///,1X,41HN0DAL  DATA  AS  INPUT  IN  GLOBAL  COORDINATES) 

923  FORMAT  (///I X,40HNODAL  DATA  AS  INPUT  IN  LOCAL  COORDINATES) 

924  FORMAT  (30H0  INTERNAL  NO.  MESHNO.,39H  X-ORDINATE  Y-ORD 
IINATE  Z-ORDINATE) 

925  FORMAT  (!2X,I4,8X,I4,4X,A1,3F13.3,1P4D15.5) 

926  FORMAT  (I5,4X,AI,7D10.4) 

928  FORMAT  (1HO,20HNODAL  POINT  ERROR  N=,I5) 

930  FORMAT  (1515) 

931  FORMAT  (IX, 18, 5X,19I5) 

932  FORMAT  (///,1X,31HN0DAL  DATA  IN  LOCAL  COORDINATES) 

933  FORMAT (12X,I4,8X,I4,3FI3.3) 

934  FORMAT  (///,1X,32HN0DAL  DATA  IN  GLOBAL  COORDINATES) 

935  FORMAT  (1HO,10X,18HDISPLACEMENTNODES/13X,8HMESH  NO.,5X,9HCONDITIO 
IN) 

936  FORMAT  (14,611,6010.4) 

937  FORMAT  (5X,I5,5X,I4,5X,6I2,3X,6F10.5) 

947  FORMAT(1HO,5X,25HWARNING  DISP.  NODE  NUMBER  ,15) 

927  FORMAT(///,lH  ,24HNODAL  MASS  ERROR,  NODE=  ,I5,10X,5HMASS=  D20.4) 

929  FORMAT(1HO/,2X, 

165HELEMENTNO.  N1  N2  N3  N4  N5  N6  N7  COORMTYPET 
2YP  ,5X,26H  N1  N2  N3  N4  COOR  ) 

END 
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SUBROUTINE  READOU(UOUT,SOUT,NPOUT,GLABEL,rNMESH,NODE,DP,NSEC,IMPB) 


IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

INCLUDE  ’ADJUSTCOM* 

INCLUDE  ’OUTPA.COM* 

INCLUDE  'SIZE.COM 
C$ 

C$  COMMON  STATEMENTS  ADDED  TO  ACCOMODATE  VO  DECLARATIONS 
C$ 

COMMON  /DEVS/LUTRM,  LUIN,  LUOUTP,  LUPLT 
COMMON  /LABELS/NAINP,NAOUT,NAPLT 
INTEGER  UOUT,SOUT,LUTRM,  LUIN,  LUOUTP,  LUPLT 

DIMENSION  DP(NDEF) 

DIMENSION  INMESH(NINMEH),  JJ(7),  SOUT(NSOUT),  NPOUT(2,NNPOUT), 

1  NODE(  1 4,NIX),  UOUT(NUOUT) 

DIMENSION  IMPB(NISEC) 

DIMENSION  GLABEL(  20,NGLABE ) 

WRITE  (6,939) 

WRITE  (6,940)  NPFREQ,  NPRU,  NPRS,  NPIC,  NANG,  NPSEC 
IF(NPRU.EQ.0)GOTO43 

READ  (5,941)  (UOUT(JQ),  (GLABEL(IQ,JQ),  IQ=1,17),  JQ=1,NPRU) 
WRITE(6,942)  (UOUT(JQ),  (GLABEL(IQ,JQ),  IQ=1,17),  JQ=1,NPRU) 

IFLAG=0 

DO  I=I,NPRU 

CALL  DECOD  (UOUT(I),JJ,IO,4) 

IF(JJ(3).EQ.3)  IFLAG=1 
JJ(4)=INMESH(JJ(4)) 

IF  ( JJ(4)  .GT.  NNODE  )  GO  TO  55 
DO  11=1,4 
JJ(6-II)=JJ(5-II) 

END  DO 
JJ(1)=JJ(5) 

CALL  INCODE  (UOUT(I),JJ,10,4) 

END  DO 

43  IF  (NPRS.EQ.O)  GO  TO  45 

READ  (5,941)  (SOUT(JQ),  (GLABEL(IQ,NPRU+JQ),  IQ=1,I7),  JQ=1,NPRS) 
WRITE(6,943)  (SOUT(JQ),  (GLABEL(IQ,NPRU+JQ),  IQ=1,I7),  JQ=1,NPRS) 

DO  1=1, NPRS 

CALL  DECOD  (SOUT(I),JJ,IO,4) 

IF  (  JJ(4)  .GT.  NELE  )  GO  TO  56 
END  DO 
45  CONTINUE 
IF  (NPIC.LE.0)GOTO47 
WRITE  (6,944) 

DO  K=I,NPIC 

READ  (5,945)  (NP0UT(I,K),I=I,2) 

IF(NPOUT(2,K).EQ.5)  IFLAG=1 
WRITE  (6,946)  (NP0UT(I,K),I=I,2) 

END  DO 

47  IF  (NPFREQ.LE.O)  NPFREQ=1 

NUMHAL=NNODE/2 

K=0 

DO  JE=1,NELE 
KJE=NODE(3,JE)-NODE(4,JE) 

IF  (NODE(10,;E).EQ.4)  KJE=NODE(7,JE)-NODE(8,JE) 

IF  (KJE.LT.O)  KJE=-KJE 
IF  (KJE.GT.K)  K=KJE 
END  DO 

IF(NANG.EQ.O)  GO  TO  52 

READ(5,960)  AM,(DP(I),DP(I+NANG),DP(I+2*NANG),DP(I+3  ♦NANG), 1=1, 

1  NANG) 

WRITE(6,96 1 )  AM,(DP(I),DP(I+NANG),DP(I+2*NANG),DP(I+3*NANG),I=  I , 

1  NANG) 

NANG=AM*NANG 
52  CONTINUE 
MUD=(K+ 1  )*NDGREE- 1 

IF(NSEC.LE.O)  RETURN 
DO  50  I=1,NSEC 
NA=6*(I-1) 
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50  READ(5,950)  n,(IMPB(NA+K),K=U6) 

RETURN 

55  WRITE  (6,948)  JJ(4) 

GO  TO  60 

56  WRITE  (6,949)  JJ(4) 

60  CONTINUE 

STOP 

939  FORMAT  (1H0//5X,I  IHOUTPUT  CODE) 

940  FORMAT  (1HO,9X,7HNPFREQ=,I10/10X,7HNPRU  -I10/10X,7HNPRS  =, 

1  n0/10X,7HNPIC  =I10,/,I0X,7HNANG  =I10,/,10X, 

2  7HNPSEC=,I10) 

941  FORMAT  (110,  17A4) 

942  FORMAT  ('0’,5X,'UOUT  -  SELECTIVE  NODAL  DISPLACEMENT,  VELOCITY,  ’, 

♦  'AND  ACCELERATION  OUTPUT/,(6X,IIO,IOX,17A4)) 

943  FORMAT  CO',5X;SOUT  -  SELECTIVE  ELEMENT  STRESS  ARRAY  OUTPUT/ 

♦  (6X,I10,10X,17A4)) 

944  FORMAT  ('0',5X;NPOUT  PICTURE  OUTPUT/IOX/AT  STEP',!  OX/CODE’) 

945  FORMAT  (2110) 

946  FORMAT  (//I0X,I7,10X,I4) 

948  FORMAT  ('0',5X,’WARNING  UOUT  NODE  NUMBER  =’,I5) 

949  FORMAT  (’O', 5X, 'WARNING  SOUT  ELEMENT  NUMBER  =',I5) 
950FORMAT(7I5) 

960  FORMAT(8F10.0) 

961  FORMAT(1HO,5X,'DEFORMATION  AMPLIFICATION  FACTOR  =’,F10.2y/,5X, 

1  ’WIDTH',5X,'X-ROTATION',5X,'Y-ROTATION’,5X,'Z-ROTATION', 

2  /,(4X,D12.5,3(3X,D12.5))) 

END 
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SUBROUTINE  ROTATE  (R,V,KODE) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

C....  THIS  ROUTINE  APPLIES  THE  ROTATION  MATRIX  R  TO  THE  VECTOR 

C....  V  AS  INDICATED  BY  THE  PARAMETER  KODE 

C....  KODE=l  V  =  R*V 

C....  KODE  =  2  V  =  R(TRAN)  ♦  V 

C...  IF  KODE  IS  NEGATIVE  V  IS  A  SIX  ELEMENT  VECTOR 
C 

COMMON  /MATRIX/  NAM,NB,NR 
DIMENSION  R{6),V(6),T(6) 

C 

IKODE=IABS(KODE) 

NAM  =  3*3 
NB  =  3*I 
NR  =  3*1 

GO  TO  (1,2),  IKODE 
C 

1  CALL  GMPRD  (R,V,T,3,3,1) 

IF(KODE.GT.0)GOTO3 
CALL  GMPRD  (R,V(4),T(4),3,3,1) 

G0T03 

C 

2  CALL  GTPRD  (R,V,T,3,3,1) 

IF  (KODE.GT.O)  GO  TO  3 
CALL  GTPRD  {R,V(4),T(4),3,3,1) 

C 

3  DO  4  1=1,3 
V(I)=T(I) 

4  CONTINUE 

IF  (KODE.GT.O)  GO  TO  6 
DO  5  1=4,6 
V(I)=T(I) 

5  CONTINUE 
C 

6  RETURN 
END 
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SUBROUTINE  ROTE  (THETA, PHI,PSI,XO,YO,ZO,XP,YP,CMAX,NNODE) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

C....  THETA=  ROTATION  ABOUT  THE  Y  AXIS 
C.,..  PHI=  ROTATION  ABOUT  THE  X  AXIS 
C....  PSI=ROTATION  ABOUT  Z  AXIS 
Cbrc  VARIABLE  NAMES  CHANGED  BY  DIP 
C 

INCLUDE  ’ADJUST.COM’ 

DIMENSION  XO(NNODE),  YO(NNODE),  ZO(NNODE),  CA(2),  CB(2),  CG(2), 
I  XP(NNODE),  YP(NNODE),  CMAX(6) 

THR=THETA*DATAN(  1  .D0)/45.D0 
PHIR=PHI*DATAN(  1  .D0)/45.D0 
PSIR=PSI*DATAN(  1  .D0)/45.D0 

CA(l)=DCOS(THR)^DCOS(PSIR)-DSIN(THR)*DSIN(PHIR)*DSIN(PSIR) 
CA{2)=-DSIN(THR)*DSIN(PHIR)*DCOS(PSIR)-DCOS(THR)*DSIN(PSIR) 
CB(  1  )=DC0S(PHIR)*DSIN(PSIR) 

CB(2)=DCOS(PHIR)*DCOS(PSIR) 

CG(  1  )=-DSIN(THR)*DCOS(PSIR)-DCOS(THR)*DSIN(PHIR)*DSIN(PSIR) 
CG(2)=-DCOS(THR)*DSIN(PHIR)*DCOS(PSIR)+DSIN(THR)*DSIN(PSIR) 
CMAX(l)=XO(l) 

CMAX(2)=XO(l) 

CMAX(3)=YO(l) 

CMAX(4)=YO(l) 

CMAX(5)=ZO(l) 

CMAX(6)=ZO(l) 

DOI=l,NNODE 

IF  (XO(I).GE.CMAX(l))  CMAX(l)=XO(I) 

IF  (XO(I).LE.CMAX(2))  CMAX(2)=XO(I) 

IF  (YO(I).GE.CMAX(3))  CMAX(3)=YO(I) 

IF  (YO(I).LE.CMAX(4))  CMAX(4)=YO(I) 

IF  (ZO(I).GE.CMAX(5))  CMAX(5)=ZO(I) 

IF  (ZO(I).LE.CMAX(6))  CMAX(6>=ZO(I) 

ZO(I)=-ZO(I) 

XP(I)=XO(I)*CA(  I  )+YO(I)*CB(  1  )+ZO(I)*CG(  I ) 
YP(I)=XO(I)*CA(2)+YO(I)*CB(2)+ZO(I)*CG(2) 

ZO(I)=-ZO(I) 

END  DO 

RETURN 

END 
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SUBROUTINE  SFRCIN  (L,ND,XC,YC,ZC,IX,E,UD,FINT,STRS,STRAIN,STRESS,N 
IUMEL,INDEX,SMASS,EUI,EUJ,TRAI,TRAJ,EH,AL,IEIGEN,rNMESH) 

Cbrc 

Cbrc  IT  APPEARS  THIS  SUBROUTINE  NEVER  GETS  CALLED! 

Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

C....  THIS  ROUTINE  CALCULATES  THE  INTERNAL  FORCE  IN  AN  AXIAL  3-D  SPRING 
C....  AND  TRANSFERS  THE  FORCE  AND  MOMENT  DUE  TO  THE  SPRING  FORCE  TO 
C....  THE  ASSOCIATED  RIGIB  BODY 

C.  ..  TRAI  AND  TRAJ  CONTAIN  R-ZERO  AND  R-ZERO-BAR  FOR  NODES  I  &  J 
C 

COMMON/ALINE/NS,LEL(40),UCP(120),OMEGA(360),EUL(360) 

INCLUDE  'ADJUST.COM’ 

INCLUDE  'MATRIX.COM' 

INCLUDE  'NUMINT.COM 
INCLUDE  'CONTRL.COM 

DOUBLE  PRECISION  FINT(NFINT) 

DIMENSION  XC(NXC),  YC(NYC),  ZC(NZC),  DC(14,ND(),  E(12,NE),  UD(NX1) 

1  ,STRAIN(NSTRAI),  STRESS(NSTRES),  STRS(NSTRS),  INDEX( 

2  NINDEX),  EUI(9),  EUJ(9),  TRAI(6),  TRAJ(6),  EH(3),  OMEGI( 

3  3,3),  OMEGJ(3,3),  TEMP1(3),  TEMP2(3),  TEMP3(3),  TEMP4(3) 

4  ,AL(NAL),  DISP(2),  SMASS(NSMASS),  INMESH(NINMEH) 

C 

IF(KONTRL(I6).EQ.O)  GO  TO  30 
C 

C  CHECK  IF  ELEMENT  L  IS  AN  ELEMENT  ASSOCIATED  WITH  THE  RIGHT  OR  LEFT 
C  SHOULDER  RIGID  BODIES  OR  RIBS. 

C 

ISET=0 
NAM  =  3*3 
NB  =  3*1 
NR  =  3*I 
Cbrc 

Cbrc  NOTE:  WHERE  IS  NS  SET?  SINCE  THIS  SUBROUTINE  ISN’T  CALLED,  WE'RE 

Cbrc  NOT  SURE.  BROWSER  SHOWS  THAT  THE  COMMON  BLOCK  ISN’T  USED  ANYWHERE 

Cbrc  ELSE. 

Cbrc 

DO  3!  1=1, NS 
IF(L.NE.LEL(I))GOT0  3I 
ISET=I 
IND=I 

31  CONTINUE 
C 

30N1=IX(1,L) 

N2=IX(2,L) 

N3=IX(3,L) 

N4=IX(4,L) 

C 

ISKIP=0 

JSKIP=0 

c 

C....  CHECK  FOR  PRIMARY  OR  SECONDARY  NODES 
C 

IF  (N3.EQ.NI)ISKIP=1 
IF  (N4.EQ.N2)JSKIP-1 
C 

C  ...  SET  UP  OMEGA  TRANSFORMATION  MATRICES 
C 

IF  (ISKIP.EQ.!)GOTO  1 
OMEGI(I,1)=0. 

OMEGI(I,2)=TRAI(6) 

OMEGI(l,3)=-TRAI(5) 

OMEGI(2,l)=-TRAI(6) 

OMEGI(2,2)=0. 

OMEGI(2,3)=TRAI(4) 

OMEGI(3,l)=TRAI(5) 

OMEGI(3,2)=-TRAI(4) 

OMEGI(3,3)-0. 

1  IF(JSKIP.EQ.l)GOT0  2 
OMEGJ(1,1)=0. 

OMEGJ(l,2)=TRAJ(6) 

OMEGJ(l,3)=-TRAJ(5) 

OMEGJ(2,l)=-TRAJ(6) 
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OMEGJ(2,2)=O.DO 

OMEGJ(2,3)=TRAJ(4) 

OMEGJ(3,l)=TRAJ(5) 

OMEGJ(3,2)=-TRAJ{4) 

OMEGJ(3,3)=O.DO 

IF(KONTRL(I6).EQ.O)  GO  TO  32 
IF(ISET.EQ.O)  GO  TO  32 
N=9*(IND-1)+1 
K=l 

D0  33  J=l,3 
DO  33  1=1,3 

OMEGA(N)=OMEGJ(I,J) 

EUL(N)=EUJ(K) 

N=N+1 
33  K=K+I 
32  CONTINUE 

...  TRANSFORM  R-ZERO-BARTO  GLOBAL  SYSTEM 

2IF(ISKIP.EQ.I)GOT0  3 
TEMP1{1)=TRAI(4) 

TEMP1(2)=TRAI{5) 

TEMP1(3)=TRAI(6) 

3IF(JSKIP.EQ.1)G0T0  4 
TEMP2(1)=TRAJ(4) 

TEMP2(2)=TRAJ(5) 

TEMP2(3)=TRAJ(6) 

41F(ISKIP.EQ.1)G0T0  5 
CALL  GMPRD  (EUI,TEMPl,TEMP3,3,3,l) 
5IF(JSKIP.EQ.l)G0T0  6 
CALL  GMPRD  (EUJ,TEMP2,TEMP4,3,3,1) 

...  DETERMINE  SECONDARY  NODE  GLOBAL  DISPLACEMENTS 

6  XX=XC(N2)-XC(NI) 

YY=YC(N2)-YC(N1) 

ZZ=ZC(N2)-ZCCN1) 

N1N={NI-1)*ND 
N2N=(N2-1)*ND 
N3N={N3-1)*ND 
N4N=(N4-1)*ND 
IF(ISKIP.EQ.1)GOT0  7 
DIX=UD(N3N+ 1  )+TEMP3(  1  )-TRAI(  1 ) 
DIY=UD(N3N+2)+TEMP3(2)-TRAl(2) 
DIZ=UD{N3N+3)+TEMP3(3)-TRAI(3) 

UD(N1N+1)=DIX 

UD(N1N+2)=DIY 

UD(NIN+3)=DIZ 

GO  TO  8 

7  DIX=UD(N3N+1) 

DIY=UD(N3N+2) 

DIZ=UD(N3N+3) 

8  IF  (JSKIP.EQ.l)GOT0  9 
DJX=UD(N4N+ 1  )+TEMP4(  1  ).TRAJ(  1 ) 
DJY=UD(N4N+2)+TEMP4(2)-TRAJ(2) 
DJZ=UD(N4N+3)+TEMP4(3)-TRAJ(3) 

IF(KONTRL(  16).EQ.O)  GO  TO  34 
IF(ISET.EQ.O)  GO  TO  34 
M=3*(IND-1)+1 
UCP(M)=DJX 
UCP(M+1)=DJY 
UCP(M+2)=DJZ 
14  CONTINUE 

UD(N2N+1)=DDC 
UD(N2N+2)=DJY 
UD(N2N+3)=DJZ 
GOTO  10 
9DJX=UD(N4N+1) 

DJY=UD(N4N+2) 

DJZ=UD(N4N+3) 

0  IF  (lEIGEN.EQ.  1)  GO  TO  19 

..  DETERMINE  ELEMENT  STRAIN 
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DIJX=DJX-DIX 

DIJY=DA^-DIY 

DIJZ=DJZ-DIZ 

DX=XX+DIJX 

DY=YY+DIJY 

DZ-ZZ+DIJZ 

AL2=AL(L)*AL(L) 

FAC=2.D0*(XX*DIJX+YY*DIJY+ZZ*DIJZ)+DIJX*DIJX+DIJY*DIJY+DIJZ*DIJZ 

ALN2-AL2+FAC 

ALN=DSQRT(ALN2) 

STREH=FAC/(AL(L)+ALN)/AL(L) 

...  DETERMINE  NEW  DIRECTION  COSINES  OF  ELEMENT  MU=EH 

EH(I)=DX/ALN 

EH(2)=DY/ALN 

EH(3)=DZ/ALN 

...  DETERMINE  LOCAL  INTERNAL  FORCES 

DISP(1)=ALN 

DISP(2)=STREH 

MTYP=IX(9,L) 

11=1 

NOPT=D((10,L) 

CALL  LOCFRC  (L,DISP,TEMP1,TEMP2,TEMP3,E,INDEX,I1, STRAIN, STRESS, STR 
IS, SMASS,IX,AL(L),MTYP,NOPT,NUMEL,ZC, INMESH) 

FDai=TEMP2(l) 

FJXH=TEMP2(2) 

...  IF(FIXH.NE.O.)  WRITE(6,201)  L,FIXH 
...  IF(FJXH.NE.O.)  WRITE(6,202)  L,FJXH 

IF(FJXH.EQ.O.)GOTO  19 

...  ACCUMULATE  INTERNAL  ELEMENT  FORCE  IN  FINT  IN  GLOBAL  SYSTEM 


DO  II  M=l,3 
TEMP  1  (M)=EH(M)*FIXH 
TEMP2(M)=EH(M)*FJXH 
FINT(N3N+M)=FINT(N3N+M)+TEMP1(M) 

1 1  FINT(N4N+M)=FINT(N4N+M)+TEMP2(M) 

...  ACCUMULATE  MOMENT  DUE  TO  INTERNAL  FORCE  IN  FINT  IN  BODY  SYSTEM 

IF(ISKIP.EQ.I)GOTO  12 
CALL  GTPRD  (EUI,TEMP1,TEMP3,3,3,1) 

CALL  GTPRD  (OMEGI,TEMP3, TEMPI, 3,3,1) 

GOTO  14 

12  DO  13M=1,3 

13  TEMPI(M)=0.D0 
14IF(JSKJP.E0.1)GOTO  15 

CALL  GTPRD  (EUJ,TEMP2,TEMP4,3,3,1) 

CALL  GTPRD  (OMEGJ,TEMP4,TEMP2,3,3,l) 

GO  TO  17 

15  DO  16M=1,3 

16  TEMP2(M)=0.D0 
171=0 

DO  18  M=4,6 
1=1+ 1 

FINT(N3N+M)=FINT(N3N+M)+TEMP  1(1) 

18  FINT(N4N+M)=FINT(N4N+M)+TEMP2(I) 

19  RETURN 
C 

END 
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SUBROUTINE  SLIDER  (NOP  JINT,SMASS,UD2,UD,TIME,NCP,NASN,INMESH, 
2DICOS.ALPHA,UP,UP2,NPNO,SEATK,UPOLD,SEATWK,SEATEX,UD  I  ,UP  I  ,VDAMP) 
C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

INCLUDE  'ADJUST.COM 

INCLUDE  'MATRIX.COM 

INCLUDE  'CONTRL.COM 

COMMON  /SEATM/  USEAT,VSEAT,ASEAT 

DIMENSION NCP(10,NNCP),  Xl(3),  X2(3X  X3(3X  Vl(3),  V2(3),  UP2( 

1  NUP2X  UD2(NA0),  ALPHA(3,3,N ALPHA),  UD(NX1 ), 

2  UP(NUP),  NASN(NNASN),  INMESH(NINMEH),  DICOS(3,NDICOP), 

3  NPNO(NNPNO),  SEATK(2,NSE ATK),  UPOLD(NUPOLD),  UD 1  (NVO), 

4  UP  1  (NUP I ),  VDAMP(NVDAMP) 

DIMENSION  SMASS(NSMASS) 

DOUBLE  PRECISION  FINT(NFINT) 

C 

DIMENSION  DELTY0(50) 

DELTYO  IS  THE  ARRAY  OF  INITIAL  DISTANCES  FROM  THE  SEATBACK 
IF{TIME.GT.0.)GOTO9 
DO  7 1=1, NOP 

READ  (5,901)  NPN0(I),NASN(I),(DIC0S(J,I),J=1,3),(SEATK(J,I),J=1, 

1  2),VDAMP(I) 

IF  (NASN(I).GT.O)  GO  TO  1 
READ  (5,902)  (NCP(J,I),J=1,2) 

GOT02 

1  ISTOP=NASN(I) 

READ  (5,902)  (NCP(J,I),J=l,ISTOP) 

2  READ  (5,903)  (X1(J),J=1,3),(X2(J),J=1,3),(X3(J),J=1,3) 

WRITE  (6,904)  NPNO(I),NASN(I) 

WRITE  (6,905)  (DICOS(J,I),J=l,3) 

WRITE  (6,906)  (SEATK(J,I),J=1,2),VDAMP(I) 

WRITE  (6,907) 

IF  (NASN(I).GT.O)  GO  TO  3 
WRITE  (6,902)  (NCP(J,I),J=1,2) 

GOT04 

3  ISTOP=NASN(I) 

WRITE  (6,902)  (NCP(J,I),J=l,ISTOP) 

4  WRITE  (6,908)  (X1(J),J=1,3),(X2(J),J=1,3),(X3(J),J=I,3) 


IF  REQUIRED,  READ  IN  THE  INITIAL  DISTANCES  FROM  THE  SEATBACK  OF 
NODES  WHICH  MAY  CONTACT  SEATBACK.  IT  IS  ASSUMED  THAT  THE  PLANE  I  =  1 
IS  THE  SEATBACK. 

IF(I.GT.l)GOTO  1007 
IF(KONTRL(14).EQ.I)GOTO  1002 
D0  1001KK=1,50 

1001  DELTY0(KK)=0. 

GO  TO  1007 

1002  IF(NASN(I).GT.0)  GO  TO  1003 
NCONT=NCP(2,I)-NCP(  1 ,1)+ 1 
GO  TO  1004 

1003  NCONT=NASN(I) 

1004  READ(5,1005)  (DELTY0(KK),KK=l,NCONT) 

1005  FORMAT(8F10.3) 

WRITE(6,1006)  (DELTYO(KK),KK=I,NCONT) 

1006  FORMATCO  ARRAY  OF  INITIAL  DISTANCES  FROM  SEATBACK’/(10F10.3)) 

C 

1007T1MAG=0. 

D0  5J=1,3 
V1(J)=X2(J)-XI(J) 

T1MAG=T1MAG+V1(J)*V1(J) 

5  V2(J>=X3(J)-X1(J) 

UN  1  =V  I  (2)*  V2(3  )-V2(2)*  V 1  (3 ) 

UN2=V  I  (3)*V2(  1  )-V2(3)*  V 1  ( 1 ) 

UN3=V1(I)*V2(2)-V2(1)*V1(2) 

UNMAG=SQRT(UN1*UN1+UN2*UN2+UN3*UN3) 

T1MAG=SQRT(T1MAG) 

ALPHA(  1 , 1 ,1)=UN  1/UNMAG 
ALPHA(  1 ,2,I)=UN2/UNMAG 
ALPHA(  1 ,3 ,1)=UN3/UNMAG 
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C ....  REPLACE  MESH  NODE  NO.  WITH  INTERNAL  NODE  NO. 

C 

ISTOP=NASN(I) 

NPNO(I)-INMESH(NPNO(I)) 

IF  (ISTOP.EQ.O)  ISTOP=2 
D0  6LEN=1,IST0P 
NMESH-NCP(LEN,I) 

6  NCP(LEN,I)=INMESH(NMESH) 

WRITE  (6,909) 

WRITE  (6,902)  (NCP(LEN,I),LEN=l,ISTOP) 

C 

7  CONTINUE 
C 

K=3*NOP 
D0  8J=1,K 
UP(J)=0. 

UP1(J)=0. 

8  UP2(J)=0. 

RETURN 

C 

9  SEATWK=O.DO 
SEATEX=O.DO 

C 

C  TEMP  MOD  7-6-84  -  NO  CALLS  TO  ICIF  FROM  SLIDER  -  SEAT  MOTION,  GIVEN 
C  BY  USEAT,VSEAT  AND  ASEAT,  OBTAINED  FROM  FREEFD  THROUGH 
C  COMMON/ SEATM/ 

C 

C  IF(KONTRL(13).EQ.O)  GO  TO  10 
C  CALL  ICIF  (TIME, ASEAT, 0) 

C  CALL  ICIF  (TIME, VSEAT,  1 ) 

C  CALL  ICIF  (TIME,USEAT,2) 

C  10  DO  13  1=1, NOP 
C 

10  DO  13  1=1, NOP 
KN=6*(NPNO(I)-l) 

DOI2J=l,3 

K=3*(I-I)+J 
UPOLD(K)=UP(K) ' 

UP2(K)=ASEAT*DICOS(J,I) 

UPl(K)=VSEAT*DICOS(J,I) 

UP(K)=USEAT*DICOS(J,I) 

12  UD(KN+J)=UP(K) 

13  CONTINUE 
C 

DO  22  1=1, NOP 
C 

ISKIP=0 

IF  (NASN(I).EQ.O)  GO  TO  14 

ISTART=1 

IEND=NASN(I) 

ISKIP=1 
GOTO  15 

14  ISTART=NCP(1,I) 

IEND=NCP(2,I) 

15  K=3*(I-1) 

IABE=0 

DO  22  J=ISTART,IEND 
IABE=IABE+1 
NN=J 

IF  (ISKIP.EQ.  1)  NN=NCP(J,I) 

KN=6*(NN-1) 

DELTND=0. 

DELTND=DELTND+DELTYO(IABE) 

ABE=DELTND 

VELNOR=0. 

ACCNOR=0. 

DO  16L=1,3 

ACCNOR=ACCNOR+(UD2(KN+L)-UP2(K+L))*  ALPHA(  1  ,L,I) 
VELNOR=VELNOR+(UDl  (KN+L)-UP1(K+L))*  ALPHA(  1  ,L,I) 

1 6  DELTND=DELTND+(UD(KN+L)-UP(K+L))*  ALPHA(  1  ,L,I) 

IF  (DELTND.GT.O.)  GO  TO  22 

IF(VELNOR.GT.O.)  GO  TO  22 
KP=6*(NPNO(I)-l) 

SE  ATF=(SEATK(  1 ,1)+SEATK(2,I)*DELTND*DELTND)*DELTND 
IF(KONTRL(8).EQ.l)  GO  TO  17 

FD  AMP=2  .ODO*  VDAMP(I)*DSQRT(SEATK(  1  ,!)♦  SMASS(KN+ 1  ))♦  VELNOR 
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GOTO  18 

17  FDAMP=VDAMP(I)*SEATK(l,I)*VELNOR 

18  SEATF=SEATF+FDAMP 
DO20L-l,3 

SEATEX=SEATEX-(SEATF+SMASS(KN+L)*ACCNOR)*(UP(K+L).UPOLD(K+L))* 

1  ALPHA(1,L,I) 

FINT(KP+L)-FINT(KP+L)-SEATF*ALPHA(  1  ,L,I) 

20  FINT(KN+L)=FINT(KN+L)+SEATF*  ALPHA(  1  ,L,I) 

C....  19  FORCD(KN+L)=FORCD(KN+L)  +  V2(L) 

C 

SEATWK=SEATWK+SEATF*DELTND 
22  CONTINUE 
RETURN 

901  FORMAT  (2I5,6E10.0) 

902  FORMAT  (1015) 

903  FORMAT  (3E10.0) 

904  FORMAT  (/,5X,5HPLANE,I5,5X,28HNO  OF  ASSOCIATED  SPACE  NODES, 15) 

905  FORMAT  (10X47HDIRECTION  COSINES,  10X,8HX  -  AXIS,12X,8HY  -  AXIS,12X 
1,8HZ  -  AXISy,28X,lP3E20.4) 

906  FORMAT  (5X,36HELASTIC  SEATBACK  STIFFNESS  LINEAR=  1  PE  15.4,1 0X,6HC 
1UBIC=1PE15.4,10X,14HDAMPINGCOEF=1PE12.4) 

907  FORMAT  (5X,22HASSOCIATED  SPACE  NODES) 

908  FORMAT  (5X,25HPLANE  NODES  XI, X2,  AND  X3,12X,1  lHX-COMPONENT,9X,l  IHY 
I-COMPONENT,9X,llHZ-COMPONENTy,30X,2HXl,lP3E20.4,/,30X,2HX2,lP3E20 
2.4,/,30X,2HX3,lP3E20.4,/) 

909  FORMAT  (5X,43HINTERNAL  NODE  NO.  OF  ASSOCIATED  SPACE  NODES) 

9 1 0  FORMAT  (3(5X,  IP3E20.4y),3X,  1  P6E20.4) 

911  FORMAT  (10X,1P6E20.4) 

END 
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SUBROUTINE  SOLVE  (N0DDIS,SMASS,XC,YC,2C,IX,E,X0,X1,V,A0,A1,F0RCD,F 
irNT,EULCO,DICOS,INMESH,AL,INDEX,STRS, STRAIN, STRESS, IPT,FEXOLD, 
2NCP,NASN,DICOSP,ALPHA,UP,UP2,NPNO,SEATK,UPOLD,VDAMP,UPI,VOLD) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

INCLUDE  'ADJUST.COM* 

INCLUDE  'SIZE.COM’ 

INCLUDE  'CONTRL.COM’ 

INCLUDE  'DYNAM.COM 
INCLUDE  ’OUTPA.COM 
INCLUDE  ’ARRAY.COM’ 

INCLUDE  'INDEX.COM' 

DOUBLE  PRECISION  FINT(NFINT) 

DIMENSION  XO(NXO),  X1(NX1),  V(NVO),  AO(NAO),  Al(NAl),  FORCD( 

1  NFORCD),  NODDIS(NNODIS),  SMASS(NSMASS),  XC{NXC),  YC( 

2  NYC),  IX(14,NIX),  E(I2,NE).  JJ(7),  AT(3),  DIC0S(9, 

3  NDICOS),  INMESH(NINMEH),  ZC(NZC),  EULCO(3,3,NBLAMB) 

DIMENSION  INDEX(NINDEX),  STRS(NSTRS),  STRAIN(NSTRAI),  STRESS( 

1  NSTRES),  AL(NAL),  FEXOLD(NFEXOD),  NCP(  1 0,NNCP),  NASN( 

2  NNASN),  DICOSP(3,3,NDICOP),  ALPHA(3,3,NALPHA),  jUP(NUP), 

3  UP2(NUP2),  NPNO(NNPNO),  SEATK:(2,NSEATK),  UP0LD(NUP0LD), 

4  UP1(NUP1),  VDAMP(NVDAMP),  IPT(NIPT) 

DIMENSION  V0LD(NV0LD) 

DIMENSION  ABIRD(600),VBIRD(600) 

...  DIMENSION  STATEMENT  NEEDED  FOR  EXTERNAL  ENERGY  CALCULATION 
...  WHEN  PRESCRIBED  DEGREES  OF  FREEDOM  ARE  USED  (20  P.D.O.F.) 

DIMENSION  XPRED(20),  ITPD(20),  FROLD(20) 

...  CONTROL  VARIABLES  FOR  INTEGRATION 

ICON=0 

NSLIDP=K0NTRL(4) 

BETA=K0NTRL(5) 

IB=KONTRL(6)*6 

MEQ=NUMNP*NDGREE 

NEQ-NPRI-^NDGREE 

IEIGEN=0 

SEATWK=O.DO 

SEATEX=O.DO 

IF  (BETA.NE.O.)  GO  TO  54 

...  ZERO  DEPENDENT  VARIABLES 


DOKK=1,20 
XPRED(KK)=O.DO 
FROLD(KK)=O.DO 
END  DO 
DO  1=1, MEQ 
XO(I)=O.DO 
XI(I)=O.DO 
END  DO 

IND=INDEX(NELE+1)-I 
IEND=NUMMAT+2 
LLSTRS=IND+IEND 
WRITE  (6,901)LLSTRS 
DO  M=1,IEND 
N=IND+M 
STRS(N)=ODO 
END  DO 

...  COMPUTE  INTEGRATION  PARAMETERS 


TIME=O.DO 

NTSTEP=0 

CI=(.5D0-BETA)^DELT*DELT 

C2=BETA*DELT*DELT 

C3=DELT/2.D0 

INITIAL  CONDITIONS 

CALL  FREEFD  (2,NUMDIS,N0DDIS,NUMNP,NDGREE,XC,YC,ZC,X1,V,A0,F0RCD,I 
INMESH,BETA) 
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....  CALCULATE  INITIAL  KINETIC  ENERGY 

UKE=0.D0 

DOLES=I,NEQ 

UKE-UKE+SMASS(LES)*V{LES)*V(LES) 

END  DO 

IEE=INDEX(NELE+ 1  )+NUMMAT+ 1 
STRS(IEE)=.5D0*UKE 

IF  (NSLIDP.NE.O) 

1  CALL  SLIDER  (NSLIDP,FINT,SMASS,AI,X1,TIME,NCP,NASN, 

2  INMESH,DICOSP,ALPHA,UP,UP2,NPNO,SEATK,UPOLD, 

3  SEATWK,SEATEX,V,UP  1 ,  VDAMP) 

CALL  UPDATE  ( NPRI,NDGREE,DELT,Xl,XO,V,Al,EULCO(l,  1,1), BETA  ) 

CALL  FRCIN  (NELE,NDGREE,XC,YC,ZC,IX,E,X1,FINT,STRS, 

1  STRAIN, STRESS, IPT,INDEX,EULCO,SMASS,DICOS,NPRI, 

2  AL,IEIGEN,INMESH) 

WRITE  (6,902) 

WRITE  (6,903)  (LEN,AL(LEN),LEN=1,NELE) 

GOTO? 

ENTRY  RESOLV 
BETA=KONTRL(5) 

MEQ=NUMNP*NDGREE 

NEQ-NPRI*NDGREE 

IEIGEN=0 

NSLIDP=KONTRL(4) 

SEATWK=0.D0 

SEATEX=0.D0 

C1=(.5D0-BETA)*DELT**2 

C2=BETA*DELT*DELT 

C3=DELT*.5D0 

....  INTEGRATION  LOOP 

7ITER=0 

NTSTEP=NTSTEP+1 
TIME=TIME+DELT 
DO  1=1, NEQ 
FORCD(I)=O.DO 
Al(I)=AO(I) 

END  DO 

CALL  FREEFD  (l,NUMDIS,NODDIS,NUMNP,NDGREE,XC,YC,ZC,Xl,V,AO, 

1  FORCD,INMESH,BETA) 

ITER=ITER+1 

....  ALTER  PRESCRIBED  DISPLACEMENTS 

....  ZERO  ALL  ACC.  AND  VEL.  CORRESPONDING  TO  PRESCRIBED  DISPLACEMENT 
NPDOF=0 

IF  (NUMDIS.LE.O)  GO  TO  18 
DO  1=1,NUMDIS 

CALL  DECOD  (NODDIS(I),JJ,3,7) 

J7=JJ(7) 

ML=NDGREE*(J7-1) 

DO  14  J=1,NDGREE 
ML=ML+l 
IF(JJ(J)-1)  14,12,11 

11  NPDOF=NPDOF+l 
XPRED(NPDOF)=XO(ML) 

XO(ML)=Xl(ML) 

ITPD(NPDOF)=ML 
GOTO  13 

12  X1(ML)=0.D0 
XO(ML)=O.DO 

13  V(ML)=0.D0 
AO(ML)=O.DO 
A1(ML)=0.D0 
ABIRD(ML)  =  0.D0 
VBIRD(ML)  =  O.DO 
FORCD(ML)=O.DO 

14  CONTINUE 
END  DO 

....  COMPUTE  NEW  DISPLACEMENTS 
181=0 
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191=1+1 

IF  (I.LE.NEQ)  THEN 
IF  (SMASS(I).NE.O.)  THEN 
X 1  (I)=XO(I)+ V(I)*DELT+C  I  ♦  AO(I) 

GOTO  19 
END  IF 
1=1+5 
GOTO  19 
END  IF 

CALL  UPDATE  (NPRI,NDGREE,DELT,Xl,XO,V,AUEULCO,BETA) 

CALL  FRCIN  (NELE,NDGREE,XC,YC,ZC,IX,E,X1,FINT,STRS, 

1  STRAIN,STRESS,IPT,INDEX,EULCO,SMASS,DICOS,NPRI,AL, 

2  lEIGEN.INMESH) 

IF  (NSLIDP.NE.O) 

1  CALL  SLIDER  (NSLIDPJINT,SMASS,A  1  ,X  1  ,TIME,NCP,NASN, 

2  INMESH,DICOSP,ALPHA,UP,UP2,NPNO,SEATK,UPOLD, 

3  SEAT\VK,SEATEX,V,UP1,VDAMP) 

MJ=0 

23  DO  1-1,3 

IF  (SMASS(I+MJ).EQ.O.)  GO  TO  26 
A 1  I=(FORCD{I+MJ)-FINT(I+MJ))/SMASS(I+MJ) 

Al(I+MJ)=An 
END  DO 
Ml-MJ+4 
M2=MJ+5 
M3=MJ+6 
M4=MJ+3 

AT(  1  HF0RCD(M  1  )-FINT(M  1  )+(SMASS(M2)-SMASS(M3))*  V(M2)*  V(M3)) 
1  /SMASS(Ml) 

AT(2HF0RCD(M2)-FINT(M2)+(SMASS(M3)-SMASS(M1))*V(M3)*V(M1)) 
1  /SMASS(M2) 

AT(3HF0RCD(M3)-FINT(M3)+(SMASS(M1)-SMASS(M2))*V(MI)*V(M2)) 
1  /SMASS(M3) 

DO  1=1,3 
A1(M4+I)=AT{I) 

END  DO 

26  MJ=MJ+NDGREE 
IF  (MJ.LT.NEQ)G0T0  23 


DO  1=1, NEQ 
VOLD(I)=V(I) 

V(I)=V(I)+C3*(A  l(I)+AO(I)) 

AO(I)=Al(I) 

END  DO 

....  COMPUTE  KINETIC  ENERGY  AND  EXTERNAL  ENERGY 

IKE=INDEX(NELE+1) 

IEE=IKE+NUMMAT+1 

STRS(IKE)=0D0 

1=0 

36  1=1+1 

IF  (I.GT.NEQ)  GO  TO  38 

IF  (SMASS(I).EQ.O.)  GO  TO  37 

STRS(IKE)=STRS(IKE)+SMASS(I)*V(I)^V(I) 

GO  TO  36 

37  1=1+5 
GO  TO  36 

...  CORRECT  KINETIC  ENERGY  AND  ADD  EXTERNAL  ENERGY  FOR 
...  PRESCRIBED  DISPLACEMENT  DEGREES  OF  FREEDOM 

38  IF  (NPDOF.EQ.O)  GO  TO  41 
DO  KK=I,NPDOF 

ML=ITPD(KK) 

STRS(IKE)=STRS(IKE)-SMASS(ML)*V(ML)*V(ML) 

END  DO 

CALL  FREEFD  (3,NUMDIS,N0DDIS,NUMNP,NDGREE,XC,YC,ZC,X1,V,A1, 

1  FORCD,INMESH,BETA) 

DOKK=l,NPDOF 

ML-ITPD(KK) 

STRS(IKE)=STRS(IKE)+SMASS(ML)^V(ML)*V(ML) 
FRACT=FrNT(ML)+SMASS(ML)*  A 1  (ML) 

STRS(IEE)=STRS(IEE)+.5DO*(FRACT+FROLD(KK))*(X1(ML)-XPRED(KK)) 
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FROLD(KK)=FRACT 
END  DO 

...  CALCULATION  OF  EXTERNAL  ENERGY  WHEN  SLIDING  INTERFACES  ARE  USED 

1 1  IF  (NSLIDP.EQ.O)  GO  TO  5 1 
DO  50  LS=1,NSLIDP 

ISKIP=0 

IF  (NASN(LS).EQ.O)  GO  TO  42 
ISTART=1 
IEND=NASN(LS) 

ISKIP=1 
GO  TO  43 

12  ISTART=NCP(LLS) 

IEND=NCP(2,LS) 

13  D0  49J=ISTART,IEND 
NN=J 

IF  (ISKIP.EQ.  1)  NN=NCP(J,LS) 

...  CHECK  FOR  NODES  WHOSE  MOTION  IS  PRESCRIBED  BY  MORE  THAN 
..  ONE  PLANE 

IF(LS.EQ.1)G0T0  47 
NCHECK=LS-1 
DO  46  LEN=1,NCHECK 
IF  (NASN(LEN).EQ.O)  GO  TO  45 
JSTART=1 
JEND=NASN(LEN) 

DO  LL=JSTART,JEND 
NKK=NCP(LL,LEN) 

IF  (NN.EQ.NKK)  GO  TO  49 
END  DO 
GOTO  46 

45  NSTART=NCP(  1  ,LEN) 

NEND=NCP(2,LEN) 

IF  (NN.GE.NSTART.AND.NN.LE.NEND)  GO  TO  49 

46  CONTINUE 
C 

47  KDOF=6*(NN-l) 

DO  LES=1,3 

ML=KDOF+LES 

FORCD(ML)-FINT(ML)+SMASS(ML)*AO(ML) 

END  DO 

49  CONTINUE 

50  CONTINUE 
C 

51  STRS(IKE)=.5D0*STRS(IKE)+.5D0*SEATWK 
C 

WRKEXT=SEATEX 
DO  KK=1,NEQ 

WRKEXT=WRKEXT+(FORCD(KK)+FEXOLD(KK))*(X  I  (KK)-XO(KK)) 
FEXOLD(KK)=FORCD(KK) 

XO(KK)-Xl(KK) 

END  DO 
C 

STRS(IEE)=STRS(IEE)+,5D0*WRKEXT 

NWRKP=MOD(NTSTEP,NPFREQ) 

IF  (NWRKP.NE.O)  GO  TO  53 
IF  (NSLIDP.EQ.O)  GO  TO  53 
WRITE  (6,904)  SEATWK,SEATEX 
53  CONTINUE 
C 

IF(NTSTEP.GT.  1)  GO  TO  58 
NANG=(LUOUT-LDEF)/4 
IF  (NANG.EQ.O)  THEN 
AM  =  0 
ELSE 

AM=DFLOAT(NAN/NANG) 

END  IF 
NAN=NANG 
58  CONTINUE 

IF(ICON.EQ.l)GOTO  70 
DO  KK=1,NEQ 
VBIRD(KK)=V(KK) 

ABIRD(KK)=A1(KK) 

END  DO 
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70  CONTINUE 

CALL  OUTPUT(Q(LXC),Q(LYC),Q(LZC),Q(LIX),Q(LX  1), 

1  VBIRD,ABIRD,NUMNP,NPRI,NELE,NDGREE,NUMMAT, 

2  Q(LINDEX),STRS,0(LBLAMB),Q(LMESHN),Q(LINMEH), 

3  Q(LUOUT),Q(LSOUT),Q(LNPOUT),Q(LGLABE),Q(LUU),Q(LSS), 

4  0(LT),Q(LA),Q(LPSU),Q(LNTYPE),Q(LAUX),Q(LIPT),AM) 

IF  (NTSTEP.LT.MXSTEP)  GO  TO  7 

.  END  OF  LOOP 

RETURN 
54  WRITE  (6,905)  BETA 

STOP 

C 

901  FORMAT  (/,5X,23HLENGTH  OF  STRS  ARRAY=I5) 

902  FORMAT  (/,10X,23HORGINAL  ELEMENT  LENGTHS,/) 

903  FORMAT(5(5X,I5,5X,D10.3)) 

904  FORMAT  (5X,10HSEAT  INWK- 1PDI2.4,5X,10HSEAT  EXWK=  1PD12.4) 

905  FORMAT  (IHO,  5X,  ’BETA  =  D15.6) 

911  FORMAT  (  1615) 

END 
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SUBROUTINE  SPINTF(JE,JSTART,JEND,NB,F0RCE,BM0MT,2C,NZC,rNMESH, 

1  NINMEH) 

C 

C  PERKIN -ELMER  VERSION 
C 

C  REPLACES  PREVIOUS  HSM  SPINAL  INJURY  PREDICTION  POSTPROCESSOR, 

C  INJCRI 
C 

C  SPINIF  DETERMINES  THE  SPINAL  INJURY  FUNCTION, 

C  SIF  =  FUNCTION(  COMPUTED  AXIAL  COMPRESSION  AND  BENDING  MOMENTS 
C  .  PLUS  YIELD  CRITERIA  BASED,  IN  PART, ON  EXPERIMEN- 

C  TALLY  MEASURED  VERTEBRAL  LOAD-DEFORMATION  DATA  ) 

C 

C  JE  =  ELEMENT  NUMBER 

C  JSTART  =  INFERIOR  DISC  ELEMENT  FOR  BOTTOM  MOST  VERTEBRAL  LEVEL 
C  CONSIDERED 

C  JEND  =  SUPERIOR  ELEMENT  FOR  UPPERMOST  VERTEBRAL  LEVEL  CONSIDERED 
C  NB  -  NO.  VERTEBRAL  LEVELS  CONSIDERED 
C  FORCE  =  ELEMENT  JE  LOCAL  NODAL  FORCE  ARRAY 
C  BMOMT  =  ELEMENT  JE  LOCAL  NODAL  MOMENT  ARRAY 
C 

C  PY,BMYY,BMZY  -  AXIAL  COMPRESSION,  LATERAL  BENDING  MOMENT  AND 
C  A-P  BENDING  MOMENT,  RESPECTIVELY,  CORRESPONDING 

C  TO  YIELDING  OF  THE  CORTICAL  SHELL 

C  ISYM  =  SYMMETRY  OPTION 

C  =0,  SIMULATION  IS  SYMMETRIC  ABOUT  GLOBAL  YZ  PLANE 
C 

C  ALL  LOADS  ARE  SAMPLED  EVERY  NPFREQ  STEPS,  WITH  A  SAMPLED  VALUE 
C  COMPUTED  AS  THE  MEAN  OF  ALL  VALUES  DURING  A  SAMPLING  INTERVAL, 

C  AND  TAKEN  TO  OCCUR  AT  THE  MIDPOINT  OF  THE  INTERVAL. 

C 

C  AUGUST- 1983 
C 

IMPLICIT  DOUBLE  PRECISION(A-H,0-Z) 

C 

DIMENSION  FORCE(6),BMOMT(6),PY(20),BMYY(20),BMZY(20),Z(20), 

1  ZC(NZC),INMESH(NINMEH),PE(20),VYE(20),VZE(20),TE(20), 

2BMYE(20),BMZE(20),PSUM(20),VYSUM(20),VZSUM(20),TSUM(20),BMYSUM 

3  (20),BMZSUM(20),P(20),VY(20),VZ(20),T(20),BMY(20),BMZ 

4  (20),TP(20),TVY(20),TVZ(20),TT(20),TMY(20),TMZ(20),F  1 

5  (20),PF  1  (20),BMF  1  (20),TF  1  (20),F2(20),PF2(20),BMF2(20), 

6  TF2(20),F(20),PF(20),BMF(20),TF(20),TEMP(20),ZLABEL 

7  (10),PLOT1(10),PLOT2(10),PLOT3(10),PLOT4(10),PLOT5(10) 

8  ,PLOT6(  1 0),PLOT7(  1 0),PLOT8(  1 0),PLOT9(  1 0) 

DIMENSION  TEA(20),BMYEA(20),BMZEA(20),VZEA(20),VYEA(20),FA(20)  RVCC 
C 

COMMON/D  YNAM/DELT,TIMEND,MXSTEP,NTSTEP,TIME 
COMMON/OUTPA/NPRU,NPRS,NPFREQ 
COMMON/CONTRL/KONTRL(  1 6)  RVCC 

C 

DATANl/l/ 

DATA  ZLABEL/4HVERT,  4HEBRA,  4HL  LE,  4HVEL  ,  6*4H  / 

DATA  PLOT1/4H  P  / ,  4HPY  ,  8*4H  / 

DATA  PLOT2/4HBMY  ,  4H/  BM,  4HYY  ,  7*4H  / 

DATA  PLOT3/4HBMZ  ,  4H/  BM,  4HZY  ,  7*4H  / 

DATA  PLOT4/4HVY  ,  9*4H  / 

DATA  PLOT5/4HVZ  ,  9*4H  / 

DATA  PLOT6/4HT  ,9*4H  / 

DATA  PLOT7/4H"  SA,  4HGITT,  4HAL  ",  4H  PLA,  4HNE  1, 4HNJUR, 

1  4HYFU,4HNCTI,4HON  ,4H  / 

DATA  PLOT8/4H"  FR,  4HONTA,  4HL  " ,  4HPLAN,  4HE  IN,  4HJURY, 

1  4H  FUN,  4HCTIO,  4HN  ,4H  / 

DATA  PLOT9/4H*  ♦  ,  4H*  SP,  4HINAL,  4H  INJ,  4HURY  ,  4HFUNC, 

1  4HTI0N,  4H  *  ♦,  4H  *  ,  4H  / 


INITIALIZATION 

N2-NUNPFREQ 
IF(TIME.GE.DELT)  GO  TO  30 
IF(JE.GT.JSTART)  GO  TO  40 
WRITE(6,2000) 

2000  FORMAT(IHl,5IH  -  -  -  SPINIF  (  SPINAL  INJURY  FUNCTION )  DATA  -  -  -) 
READ(5,i000)  (PY(I),I=1,NB) 

1000  FORMAT(16F5.2) 

READ(5,1000)  (BMYY(I),I=I,NB) 
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READ(5,I000)  (BMZY(I),I=1.NB) 

READ(5,1001)  FACT,NSTARTJSYM 
1001  FORMAT(D10.5,2I5) 

WRITE(6,200 1 )  F ACT,NSTART,IS YM 

2001  FORMAT(1HO,19H  FACT,NSTART,ISYM  =  DIO.5,215) 

WRITE(6,2002) 

2002  FORMAT(lH0,4X,5HLEVEL,8X,6HZ0(CM),7X,10HYIELD  LOAD,4X, 

1 13HLAT  YIELD  MOM,2X,14HA-P  YIELD  MOM ,/) 

DO  10  1=1, NB 
PY(I)=PY(I)*FACT 
BMYY(I)=BMYY(irFACT*2.0 
BMZY(I)=BMZY(I)*FACT*2.0 
Z(I)=ZC(INMESH(NSTART+I- 1)) 

10  WRITE(6,2003)  I,Z(I),PY(I),BMYY(I),BMZY(I) 

2003  F0RMAT(1H,5X,I2,3X,4D15.4) 

C 

DO  20  1=1, NB 

PSUM(I)=0.D0 

VYSUM(I)=0.D0 

VZSUM(I)=0.D0 

TSUM(I)=0.D0 

BMYSUM(I)=0.D0 

BMZSUM(I)=0.D0 

P(I)=0.D0 

VY(I)=0.CK) 

VZ(I)=0.D0 
T(I)=0.D0 
BMY(IH).D0 
BMZ(I)=0.D0 
FI(IH).D0 
F2(I)=0.D0 
20  F(I)=0.D0 

FREQ=FLOAT(NPFREQ) 

PER=FREQ*DELT 
30  CONTINUE 
IF(JE.GTJSTART)  GO  TO  40 
JV=0 
C 

C  LOADS  ON  INFERIOR  ENDPLATE  OF  FIRST  VERTEBRA  CONSIDERED  - 
C  TYPICALLY  L5  (  HUMAN  ),  L6  OR  L7  (  BABOON ) 

C 

C  SIGN  CONVENTIONS 
C 

C  PI  =  AXIAL  FORCE  -  LT/GT  0  -  C/T 

C  VYI  =  LOCAL  Y  SHEAR  -  LT/GT  0  -  FLEX/EXT 

C  VZI  =  LOCAL  Z  SHEAR  -  LT/GT  0  -  RIGHT/LEFT  LAT  BENDING 

C  TI  =  TORSION  -  LT/GT  0  -  NEG/POS  ROT  ABOUT  ANATOMICAL  Z 

C  BMYI  =  LOCAL  Y  MOMENT  -  LT/GT  0  -  RIGHT/LEFT  LAT  BENDING 

C  BMZI  =  LOCAL  Z  MOMENT  -  LT/GT  0  -  FLEX/EXT 

C 

PI=FORCE(2) 

VYI=FORCE{4) 

IF(ISYM.EQ.O)  GO  TO  35 
VZI=-FORCE(6) 

TI=BMOMT(2) 

BMYI=BMOMT(4) 

35  BMZI=BMOMT(6) 

GO  TO  999 

40  jv=mi 

IF(JE.EQ.JEND)  GO  TO  56 
LOADS  ON  SUPERIOR  ENDPLATES 

SIGN  CONVENTIONS  FOR  PS,VYS,VZS,TS,BMYS  AND  BMZS  SIMILAR  TO 
THOSE  FOR  INFERIOR  ENDPLATE  LOADS 

PS=-FORCE(l) 

VYS=FORCE(3) 

IF(ISYM.EQ.0)GOTO45 
VZS=^FORCE(5) 

TS=BMOMT(l) 

BMYS=-BMOMT(3) 

;  BMZS=-BMOMT(5) 

DETERMINE  EQUILIBRIUM  VALUES  OF  INTERNAL  LOADS 
C  EG.  P  ( EQUILIBRIUM )  =  0.5  *  ( PH-  PS  ) 
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PE(JV)=0.5DO*(PI+PS) 

C  WRITE(6,4105) 

IF(PE(A^).GT.0.D0)  PE(JV>=0.D0 
C  WRITE(6,4105) 

VYE(JV)=0.5D0*(VYI+VYS) 

C  WRITE(6,4105) 

IF(ISYM.EQ.O)  GO  TO  50 
VZE(JV)=0.5D0*(VZI+VZS) 

TE(JV)=0.5D0*(TI+TS) 

BMYE(JV)=0.5D0*(BMYT+BMYS) 

50  BMZE(W)=0.5D0*{BMZI+BMZS) 

LOADS  ON  REMAINING  INFERIOR  ENDPLATES 

PI=FORCE(2) 

VYI-FORCE(4) 

IF(ISYM.EQ.O)  GO  TO  55 
VZI=-FORCE(6) 

TI=BMOMT(2) 

BMYI=BMOMT(4) 

55  BMZI=BMOMT(6) 

GOTO  999 

56  PE(W)=PI 

IF(PE(JV).GT.0.D0)  PE(A^)-0.D0 

VYE(JV)=VYI 

IF{ISYM.EQ.0)  GO  TO  57 

VZE(JV)=VZI 

TE(JV)-TI 

BMYE(JV)=BMYI 

57  BMZE(JV)=BMZI 

SUM  LOADS 


0DO70I=l,NB 
PSUM(I)=PSUM(I)+PE(I) 

VYSUM(I)=VYSUM(I)+VYE(I) 

IF(ISYM.EQ.O)  GO  TO  70 
VZSUM(I)=VZSUM(I)+VZE(I) 

TSUM(I)=TSUM(I)+TE(I) 

BMYSUM(I)=BMYSUM(I)+BMYE(I) 

3  BMZSUM(I)=BMZSUM(I)4-BMZE(I) 

IF  CURRENT  TIME  STEP  IS  NOT  AN  ENDPOINT  OF  A  SAMPLING  INTERVAL, 
RETURN 

IF(NTSTEP.NE.N2)  GO  TO  999 
TYME=0.5D0*(2.D0*DFLOAT(Nl)-l.D0)*PER 
C 

DO  80  1=1, NB 
PE(I)=PSUM(I)/FREQ 
VYE(I)=VYSUM(I)/FREQ 
VYEA(I)=DABS(VYE(I)) 

IF(ISYM.EQ.O)  GO  TO  71 
VZE(I)=VZSUM(I)/FREQ 
VZEA(I)=DABS(VZE(I)) 

TE(I)=TSUM(I)/FREQ 
TEA(I)=DABS(TE(I)) 

BMYE(I)=BMYSUM(I)/FREQ 

BMYEA(I)=DABS(BMYE{I))  RVCC 

71  BMZE(I)=BMZSUM(I)/FREQ 

BMZEA(I)=DABS(BMZE(I))  RVCC 

IF(PE(I).GT.P(I))  GO  TO  72 
P(I)=PE(I) 

TP(I)=TYME 

72  IF(DABS(VYE(I)).LT.DABS(VY(I)))  GO  TO  73 
VY(I)=VYE(I) 

TVY(I)=TYME 

73  IF(ISYM.EQ.0)  GO  TO  77 
IF(DABS(VZE(I)).LT.DABS(VZ(I)))  GO  TO  74 
VZ(I)=VZE(I) 

TVZ(I)=TYME 

74  IF(DABS(TE(I)).LT.DABS(T{I)))  GO  TO  75 
T(I)=TE(I) 

TT(I)=TYME 

75  IF(DABS(BMYE(I)).LT.DABS(BMY(I)))  GO  TO  76 


RVCC 

RVCC 

RVCC 
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BMY(I)=BMYE(I) 

TMY(I)=TYME 

76  VZSUM(IH)  D0 
TSUM(I)=O.DO 
BMYSUM(IH).DO 

77  IF(DABS(BMZE(I)).LT.DABS(BMZ(I)))  GO  TO  78 
BMZ(I)=BMZE(I) 

TMZ(I>=TYME 

78  PSUM(I)=O.DO 
VYSUM(I)=O.DO 
BMZSUM(I>=0.D0 

80  CONTINUE 
NI=N1  +  1 

C 

C  UPDATE  SPINAL  INJURY  FUNCTION 
C 

DO  90  1=1, NB 

FP=DABS(PE(I))/PY(I) 

FMZ=DABS(BMZE(I))/BMZY(I) 

FTEMP=FP+FMZ 
IF(FTEMP.LT.Fl(I))  GO  TO  81 
F1(I)=FTEMP 
FA(I)=F1(I) 

PF1(I)=PE(I) 

BMF1(I)=BMZE(I) 

TFI(I)=TYME 

81  FMY=0.D0 
IF(ISYM.EQ.0)GOTO90 
FMY=DABS(BMYE(I))/BMYY(I) 

FTEMP=FP+FMY 
IF(FTEMP.LT.F2(I))  GO  TO  82 
F2(I)=FTEMP 

PF2{I)=PE(I) 

BMF2(I)=BMYE(I) 

TF2(I)=TYME 

82  FTEMP=FP+DMAX1(FMYJT4Z) 
IF(FTEMP.LT.F(I))  GO  TO  90 
F(I)=FTEMP 

FA(I)=F(I) 

PF(I)=PE(I) 

BMF(I)=BMYE(I) 

IF(FMZ.GE.FMY)  BMF(I)=BMZE(I) 

TF(I)=TYME 
90  CONTINUE 


C  RVCC 

C  IF  COLOR  CODING  IS  DESIRED,  WRITE  RV  DATA  TO  LU  1 1 . 
IF(KONTRL(12).EQ.I)  THEN  RVCC 

WRITE(1 1 ,5000)  (PE(I),I=1,9)  RVCC 

WRITE(1 1,5001)  (PE(I),I=10,17)  RVCC 

WR1TE(1 1,5000)  (TEA(I),I=1,9)  RVCC 

WRITE(!  1,5001)  (TEA(I),I=10,I7)  RVCC 

WRITE(1 1,5000)  (BMYEA(I),I=1,9)  RVCC 

WRITE(1 1,5001)  (BMYEA(I),I=10,17)  RVCC 

WRITE(  1 1 ,5000)  (BMZEA(I),I=1 ,9)  RVCC 

WRITE(1 1,5001)  (BMZEA(I),I=I0,17)  RVCC 

WRITE(1 1,5000)  (VZEA(I),I=1,9)  RVCC 

WRITE(1 1,5000)  (VZEA(I),I=10,17)  RVCC 

WRITE(  1 1 ,5000)  (VYEA(I),I=  1 ,9)  RVCC 

WRITE(1 1,5001)  (VYEA(I),I==10,17)  RVCC 

WRITE(1 1,5000)  (FA(I),I=1,9)  RVCC 

WRITE(  1 1 ,500 1 )  (FA(I),I=10, 17)  RVCC 

5000  FORMAT(9D14.7)  RVCC 

5001  FORMAT(8D14.7)  RVCC 

END  IF  RVCC 

C  RVCC 


IF(NTSTEP.LT.MXSTEP)  GO  TO  999 
C 

C  OUTPUT 
C 


RVCC 


WRITE(6,3000) 

3000  F0RMAT(1H1,75H  SPINAL  INJURY  LIKELIHOOD  POSTPROCESSI 

ING  OUTPUT*^*****) 

WRITE(6,3001) 

3001  FORMAT(lH-,7IH . MAX  COMPRESSIVE  FORCES  AND  BENDING  MO 

IMENTS . // 

228HP  =  MAX  COMPRESSIVE  FORCE// 
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356H  BMY  =  MAX  LAT  MOMENT  -  LT/GT  0  -  RIGHT/LEFT  LAT  BENDING// 

442H  BMZ  =  MAX  A-P  MOMENT  -  LT/GT  0  -  FLEX/EXT// 

548H  TP,TMY,TMZ  -  TIMES  AT  WHICH  P,BMY  AND  BMZ  OCCUR// 

628H  PY,BMYY,BMZY  =  YIELD  VALUES) 

WRITE(6,3002) 

3002  FORMAT(  1  H-,3X,5HLEVEL,6X,2HTP,  1  OX,  1  HP,  1 2X,2HP Y,9X,3HTMY, 

1 8X,3HBMY,  1 0X,4HBMYY,8X,3HTMZ,  8X,3HBMZ,  1 0X,4HBMZ  Y/) 

DO  100  I=1,NB 

100  WRITE(6,3003)  I,TP(I),P(I),PY(I),TMY(I),BMY{I),BMYY(I), 
1TMZ(I),BMZ(I),BMZY(I) 

3003  FORMAT(1H,1X,I5,4X,3(F10.6,1PD13.4,1PD13.4)) 

DO  110 1=1, NB 

110TEMP(I)=P(I)/PY{I) 

CALL  PLOTER(NB,Z,TEMP,PLOTl  ,ZLABEL,- 1 ,0) 

DO  120  I=1,NB 

120  TEMP(I)=BMZ(I)/BMZY(I) 

CALL  PLOTER(ra,Z,TEMP,PLOT3 ,ZL ABEL,- 1 ,0) 

IF(ISYM.EQ.O)GOTO  150 
DO  130  1=1, NB 

130  TEMP(I)=BMY(I)/BMYY(I) 

CALL  PLOTER(NB,Z,TEMP,PLOT2,ZL ABEL,- 1 ,0) 

C 

WRITE(6,3004) 

3004  FORMAT(lHI,51H . MAX  SHEARS  AND  TORSION . , 

Ml 

239H  VY  =  MAX  Y  SHEAR  -  LT/GT  0  -  A/P  SHEAR// 

348H  VZ  =  MAX  LAT  SHEAR  -  LT/GT  0  -  RIGHT/LEFT  SHEAR// 

443H  T  =  MAX  TORSION  -  LT/GT  0  -  -/+  Z  BAR  ROT// 

546H  TVY,TVZ,TT  =  TIMES  AT  WHICH  VY,VZ  AND  T  OCCUR) 

WRITE(6,3005) 

3005FORMAT(1H-,3X,5HLEVEL,6X,3HTVY,9X,2HVY,9X,3HTVZ,9X,2HVZ,9X, 

12HTT,10X,IHT/) 

DO  140  1=1, NB 

140  WRITE(6,3006)  I,TVY(I),VY(I),TVZ(I),VZ(I),TT(I),T(I) 

3006  FORMAT(lH  ,1X,I5,4X,3(F10.6,1PD13.4)) 

CALL  PLOTER(NB,Z,VY,PLOT4,ZL ABEL,- 1,0) 

CALL  PLOTER(NB,Z,VZ,PLOT5,ZL  ABEL,- 1 ,0) 

CALL  PLOTER(NB,Z,T,PLOT6,ZLABEL,-1,0) 

C 

150  WRITE(6,3007) 

3007  F0RMAT(1H1,63H  *♦♦♦***"  SAGITTAL  PLANE  "  INJURY  FUNCTION  ♦ 

!*♦*♦*♦// 

233H  FI  =  (  ABS(P/PY)  +  ABS(MZ/MZY)  )// 

344H  TFl  =  TIMES  AT  WHICH  FI,  PFl  AND  BMFl  OCCUR) 

WRITE(6,3008) 

3008  FORMAT(1H-,3X,5HLEVEL,6X,3HTFI,9X,2HF1,10X,3HPF1,1 1X,2HPY,  • 

1 10X,4HBMF1,9X,4HBMZY/) 

DO  160I=I,NB 

160  WRITE(6,3009)  I,TF1(I),F1(I),PF1(I),PY(I),BMF1(I),BMZY(I) 

3009  FORMAT(lH  ,1X,I5,4X,F10.6,5(1PD13.4)) 

CALL  PLOTER(NB,Z,Fl,PLOT7,ZL ABEL, -1,0) 

IF(ISYM.EQ.O)  GO  TO  999 

C 

WRITE(6,3010) 

3010  F0RMAT(1H1,62H . ”  FRONTAL  PLANE  "  INJURY  FUNCTION  -  - 

1 . Jl 

233H  F2  =  (  ABS(P/PY)  +  ABS(MY/MYY)  )// 

344H  TF2  =  TIMES  AT  WHICH  F2,  PF2  AND  BMF2  OCCUR) 

WRITE(6,3011) 

301 1  FORMAT(IH-,3X,5HLEVEL,6X,3HTF2,9X,2HF2,10X,3HPF2,1 1X,2HPY,10X, 

1 4HBMF2,9X,4HBMYY/) 

DO  170I=1,NB 

170  WRITE(6,3012)  LTF2(I),F2(I),PF2(I),PY(I),BMF2(I),BMYY(I) 

3012  FORMAT(lH  ,IX,I5,4X,F10.6,5(1PD13.4)) 
CALLPLOTER(NB,Z,F2,PLOT8,ZLABEL,.1,0) 

C 

WRrrE(6,3013) 

3013  F0RMAT(1H1,88H  **♦**♦*  COMBINED  "  SAGITTAL  "  AND  "  FRONTAL  " 

I  PLANE  INJURY  FUNCTION  ^y/ 

253H  F  =  ( ABS(P/PY)  +  MAX(  ABS(MY/MYY) ,  ABS(MZ/MZY) ) )// 

340H  TF  =  TIMES  AT  WHICH  F.  PF  AND  BMF  OCCUR) 

WRITE(6,3014) 

3014FORMAT(IH-,3X,5HLEVEL,6X,2HTF,10X,1HF,I2X,2HPF,11X,2HPY,10X,3HBMF, 
1 10X,4HBMYY,9X,4HBMZY) 

DO  180I=1,NB 

180  WRITE(6,3015)  I,TF(I),F(I),PF(I),PY(I),BMF(I),BMYY(I),BMZY(I) 
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3015  F0RMAT(1H  ,1X,I5,4X,F  10.6,6(1  PD  13.4)) 
CALL  PLOTER(NB,Z,F,PLOT9,ZLABEL,-1,0) 
C 

999  RETURN 
END 


non  onn  non 


SUBROUTINE  SUBTIM(HL.HS,ML,MS,SL,SS.CUCS,DH,DM,DS,DC) 

SUBROUTINE  TO  SUBTRACT  A  SMALLER  TIME  FROM  A  LARGER  TIME 

INTEGER*2  HL,HS,SHL,SHS,ML,MS,SML,SMS,SL,SS,SSL,SSS, 

&  CL,CS,SCL,SCS,DH,DM,DS,DC 

PRESERVE  THE  CALLING  VARIABLES 


SHL  =  HL 
SHS  -  HS 
SML  =  ML 
SMS  =  MS 
SSL  =  SL 

sss  =  ss 

SCL  =  CL 
SCS  =  CS 

DO  ALL  ARITHMETIC  WITH  SAVED  VARIABLES 

IF(SCL  XT.  SCS)  THEN 
DC  =  SCL  +  100  -  SCS 
SSL  =  SSL  -  I 
ELSE 

DC  =  SCL  -  SCS 
END  IF 

IF(SSL  .LT.  SSS)  THEN 
DS  =  SSL  +  60  -  SSS 
SML  =  SML  -  I 
ELSE 

DS  =  SSL  -  SSS 
END  IF 

IF(SML  .LT.  SMS)  THEN 
DM  =  SML  +  60.SMS 
SHL  =  SHL  -  1 
ELSE 

DM  =  SML  -  SMS 
END  IF 

DH  =  SHL-SHS 

RETURN 

END 
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SUBROUTINE  UPDATE  (NPRI,NDGREE,DELT,Xl,XO,V,A,BLAMB,BETA) 

C 

Cbrc 

Cbrc  CLEANED  UP  SOME  CODE  -  DJP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  {A-H,0-Z) 

C 

INCLUDE  ’ADJUST.COM’ 

COMMON /DYNAM/  NDUM(3),  NTSTEP,  TIME 
DOUBLE  PRECISION  E 1  .E3,E3 1  S,E32S 
C 

DIMENSION  V(NVO),  A(NA1),  BLAMB(NNBLAM),  El(3),  E3(3),  TEMP1(3), 

I  TEMP2(3),  XI(NXl),  XO(NXO) 

C 

C....  THIS  SUBROUTINE  UPDATES  THE  BODY  COORDINATES  LAMBDA  -  BAR 
C 

NEQ=NPRI*NDGREE 

IMPUPD=0 

IF  (BETA.NE.O.)  IMPUPD=1 
C 

Jl=4 

Kl=l 

J=J1 

K-Kl 

DELT2=DELT/2.D0 
DELTT2=DELT*DELT2 
1  J2=J+1 
J3=J+2 
K2=K+1 
K3=K+2 
K4=K+3 
K5=K+4 
K6=K+5 
K7=K+6 
K8=K+7 
K9=K+8 
C 

C....  FIND  E3X,  E3Y,  AND  El  Y 
C 

IF  (IMPUPD.EQ.O)  GO  TO  2 
C 

DTHETX=X1(JI)-X0(J1) 

DTHETY-X 1  ( J2)-X0(  J2) 

DTHETZ=XI(J3)>XO(J3) 

OMEGAX=V(  J 1  )*DELT2 
OMEGAZ=V(J3)*DELT2 
CONX=I  .DO+OMEGAX*OMEGAX 
CONZ=  I  .DO+OMEGAZ*OMEGAZ 
C 

E3(  1  HOMEGAZ*DTHETX+DTHETY)/CONZ 
E3(2)=(OMEGAZ*DTHETY-DTHETX)/CONZ 
E 1  (2)=(0MEGAX*DTHETY+DTHETZ)/C0NX 
C 

GO  TO  3 

2E3(1)=DELT^V(J2)+DELTT2*(V(JI)*V(J3)+A(J2)) 

E3(2)=-DELT*V(J1)+DELTT2*(V(J2)*V(J3)-A(J1)) 

E I  (2)=DELT*  V(J3)+DELTT2*(V(J  1  )♦  V(J2)+A(J3)) 

3  IF  (DABS(E3{l)).LT.1.0D-20)  E3(1H).D0 
IF  (DABS(E3(2)).LT.L0D-20)  E3(2H).D0 
IF  (DABS(El(2)).LT.1.0D-20)  E1(2H).D0 
C 

C...  FIND  E3Z  AND  NORMALIZE  E3 
C 

E31S=E3(I)*E3(1) 

E32S=E3(2)*E3(2) 

E3(3>=-.5D0*(E31S+E32S) 

C  ALSQR  =  E3IS  +  E32S  +  (  l.DO+E3(3)  )*(  l.DO+E3(3)) 

C  IF  ( ALSQR  .LT.  0.0  )  GO  TO  iO 
13  CONTINUE 

AL=DSQRT(E31S+E32S+(l.D0+E3(3)r(l.D0+E3(3))) 

E3(1)=E3(I)/AL 

E3(2)=E3(2)/AL 

E3(3HLC>0+E3(3))/AL 

C 

C....  COMPLETE  El 
C 
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E1(3)=-(E3(1)+E1(2)*E3(2))/E3(3) 

C  El  ISQR  =  l.DO  -  E1(2)*E1(2)  -  E1(3)*E1(3) 

C  IF  (  El  ISQR  XT.  0.0  )  GO  TO  1 1 
14  CONTINUE 

E I  ( 1  )=DSQRT(  I  .DO-E 1  (2)*E  I  (2)-E  I  (3)*E  1(3)) 

. .  TRANSFORM  TO  NEW  SYSTEM  AND  STORE  IN  OLD  VECTOR  POSITIONS) 

TEMP1(1)-BLAMB(K1)*E3(1)+BLAMB(K4)*E3(2)+BLAMB(K7)*E3(3) 

TEMP  1  (2)=BL  AMB(K2)*E3(  I  )+BL  AMB(K5)*E3(2)+BL  AMB(K8)*E3{3) 
TEMP1(3)=BLAMB(K3)*E3(1)+BLAMB{K6)*E3(2)+BLAMB(K9)*E3(3) 

TEMP2(  I  )=BL  AMB(K  1  )*E  1  ( 1  )+BL  AMB(K4)*E  1(2)+BLAMB(K7)*E  1  (3 ) 
TEMP2(2)=BLAMB(K2)*E1(1)+BLAMB(K5)*E1(2)+BLAMB(K8)*E1(3) 
TEMP2(3)=BL  AMB(K3)*E  1  ( I  )+BL  AMB(K6)*E  1  (2)+BL  AMB(K9)*E  1(3 ) 
BLAMB(K1)=TEMP2(1) 

BLAMB(K2)=TEMP2(2) 

BLAMB(K3)=TEMP2(3) 

BL  AMB(K4)=TEMP  1  (2)*TEMP2(3  )-TEMP  1  (3)*TEMP2(2) 

BL  AMB(K5)=TEMP  1  (3)*TEMP2(  1  )-TEMP  1  ( 1  )*TEMP2(3) 

BL  AMB(K6)=TEMP  1  ( 1  )*TEMP2(2)-TEMP  1  (2)*TEMP2(  1 ) 
BLAMB(K7)=TEMP1(1) 

BLAMB(K8)=TEMP1(2) 

BLAMB(K9)=TEMP1(3) 

Jl=Jl+6 
Kl=Kl+9 
J=J1 
K=KI 

IF(Jl.LT.NEQ)  GOTO  1 
RETURN 

END 
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SUBROUTINE  VECT  (X,Y,Z,A,B,C,ABC,D1,BETA,XC,YC,ZC) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

...  THIS  ROUTINE  CALCULATES  THE  COMPONENTS  OF  ELEMENT 
...  UNIT  VECTORS  E-1  AND  E-2 

DIMENSION  X(2),  Y{2),  Z(2) 

C 

CB=DCOS(BETA) 

SB=DSIN(BETA) 

XC={(X(2)-X(I))*CB+(B*(Z(2)-Z(1))-C*(Y(2)-Y(1)))*SB/ABC)/DI 

YC=((Y(2)-Y(1))*CB+(C*(X(2).X(I)).A*(Z(2)-Z(1)))*SB/ABC)/D1 

ZC=((Z(2)-Z(  1  ))*CB+(A*(Y(2)-Y(  1  ))-B*(X(2)-X(  1  )))*SB/ABC)/D  1 

RETURN 

END 
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o  p  p  o 


SUBROUTINE  VECTOR  (X,Y,Z,SIDE,S,A,B.C,ABC) 

C 

Cbrc 

Cbrc  CLEANED  UP  CODE  -  DIP 
Cbrc 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

....  THIS  ROUTINE  CALCULATES  TRIANGULAR  ELEMENT  SIDE 
....  LENGTHS  AND  UNIT  NORMAL  PARAMETERS 

INCLUDE  ’ADJUST.COM' 

DIMENSION  X(3),  Y(3),  Z(3),  SIDE(3) 

C 

S=O.DO 


DO  1=1,3 
J=I+1 


IF  (I.EQ.3)  J=1 

SIDE(I)=DSQRT((X(J)-X(I))**2+(Y(J)-Y(I))**2+(Z(J)>Z(I))**2) 

S=S+SIDE(I) 

END  DO 


S=.5D0*S 

A=Y(1)*(Z(2)-Z(3))+Y(2)*(Z(3).Z(1))+Y(3)*(Z(1).Z(2)) 

B=X(l)*(Z(3)-Z(2))+X(2r(Z(I)-Z(3))+X(3)*(Z(2).Z(I)) 

C=X(1)*(Y(2)-Y(3))+X(2)*(Y(3)-Y(1))+X(3)*(Y(1).Y(2)) 

ABC=DSQRT(A*A+B*B+C*C) 

RETURN 

END 
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PROGRAM  WHAM3 


Q  ^mm^^i^*****^*******************************^^^*********^^^^^:^^^*^,^^*** 
Q  i^f^minniifUfiit^^i^^nm*******^***********************^^***^^]^*******^******* 

C  ♦♦*♦ 

C...  STRUCTURE  OF  Q  ARRAY  **♦* 


NAME  SIZE 


DESCRIPTION 

**** 


PINT  2*NDGREE*NPRI  INTERNAL  FORCE  ARRAY 


XC  NODET 
YC  NODET 
ZC  NODET 
INMESH  NODMAX 
MESHIN  NODET 
LXO  MEQ 
LXl  MEQ 
BLAME  9*NPRI 


X  COORDINATE  OF  NODE  POINTS  ***♦ 

Y  COORDINATE  OF  NODE  POINTS  *♦♦♦ 

Z  COORDINATE  OF  NODE  POINTS 

INTERNAL  NODE  NUMBER  LOCATOR  *♦** 
MESH  NODE  NUMBER  LOCATOR 
OLD  NODAL  DISPLACEMENT  ARRAY 
NEW  NODAL  DISPLACEMENT  ARRAY  **** 
NODAL  BODY  VECTOR  ARRAY 


c... 

VO 

N1 

OLD  NODAL  VELOCITY  ARRAY  **** 

c... 

AO 

NI 

OLD  NODE  ACCL.  ARRAY 

q... 

A1 

N1 

NEW  NODE  ACCL.  ARRAY 

c... 

SMASS  N1 

NODAL  MASS  ARRAY 

**** 

FORCD  N1 
FEXOLD  N1 
AUX  N1 
INDEX  NELE+1 
EX  NELE*7 
AL  NELE 
DICOS  NELE*9 
E  NUMMAT*12 
NODDIS  NUMDIS+1 
IPT  NUMSEC 


NEW  EXTERNAL  FORCE  ARRAY  ♦♦♦* 
OLD  EXTERNAL  FORCE  ARRAY 
DEFORMED  CORRDINATE  ARRAY  **** 
INDEX  TO  SRRS  ARRAY  ♦*** 
ELEMENT  ARRAY 
ORIGINAL  ELEMENT  LENGTHS 

DIRECTION  COSIN  ARRAY  **** 
MATERIAL  PROPERTIES  ARRAY  ***' 
!  FIXITIES  ARRAY 

NO.  OF  INTEGRATION  PTS  PER  SECTIO 


STRESS  ARRAY 


STRESS  2*MAXIPT 
STRAIN  2*MAXIPT 
YIPT  MAXIPT 
ZIPT  MAXIPT 
XLEN  MAXIPT 
THCK  NUMSEC 
T  NPTS  T 

UOUT  NPRU 
sour  NPRS 
NPOUT  NPIC 
GLABEL  20*NPLOT 
PSU  NPTS*NPLOT 


STRESS  AT  INTEGRATION  PTS 
r  STRAIN  AT  INTEGRATION  PTS 

Y  COORDINATES  OF  INTEGRATION 
Z  COORDINATES  OF  INTEGRATION 
LENGTHS  FOR  INTEGRATION 
THICKNESS  FOR  INTEGRATION 
TIME  ARRAY  FOR  OUTPUT 
NODAL  OUTPUT  ARRAY 
ELEMENT  OUTPUT  CODE  ARRAY 
PICTURE  OUTPUT  ARRAY 
r  PLOTER  OUTPUT  LABELS 

r  OUTPUT  PTS.  FOR  TIME  HISTORY 


UU  NPRU 
SS  NPRS 
A  NPTS 
NTYPE  NPLOT 


OUTPUT  KINEMATIC  VALUES 
OUTPUT  FORCE  VALUES  ♦*** 
OUTPUT  DEPENDENT  VARIABLE 
PLOT  TYPE  IDENTIFIER 

♦♦♦♦ 


FOR  SLIDING  INTERFACES  ONLY 


C,...  NCP  10*NOPT  NUMBER  OF  CONTACT  POINTS 

C....  NASN  3*NOPT  NODE  NUMBERS  OF  CONTACT  POINT*** ♦ 

C  ...  DICOSP  3*NOPT  DIRECTION  OF  MOTION  OF  PLANE 

C.  ..  ALPHA  9*NOPT  UNIT  NORMAL  TO  SLIDING  PLANE  **** 

C....  UP  3*NOPT  DISPLACEMENT  OF  PLANE  ♦*** 

C....  UP2  3*NOPT  ACCELERATION  OF  PLANE  **♦* 

C  ...  NPNO  NOPT  NODE  NO.  OF  PLANES 

C....  SEATK  2*NOPT  STIFFNESS  FOR  PLANES 

C....  UPOLD  3*NOPT  OLD  DISP  OF  PLANES 

C....  VDAMP  NOPT  DAMPING  COEFFICIENTS  FOR  PLANES 

C....  UPl  3*NOPT  VELOCITIES  OF  PLANES 

C....  *♦** 

c....  ****************************************************************** 

Q  *********************m*************************^**^tiiif************* 

c 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

Cbrc 

Cbrc  COMMON  INCLUDES  ADDED  TO  ELIMINATE  SOME  MESSINESS  -  DIP 
Cbrc 

INCLUDE  'ADJUST.COM* 

INCLUDE  ’ARRAY.COM 


INCLUDE  'CONTRL.COM’ 

INCLUDE  'DYNAM.COM’ 

INCLUDE  'INDEX.COM 
INCLUDE  'OUTPA.COM' 

INCLUDE  'SIZE.COM 
INCLUDE  ’NUMINT.COM 
INCLUDE  'PRESBC.COM 

COMMON  /DEVS/  LUTRM,  LUTN,  LUOUTP,  LUPLT 
COMMON  /LABELS/  NAINP,NAOUT,NAPLT 
INTEGER  INP,  OUT,  PLT ,  LUTRM,  LUIN,  LUOUTP,  LUPLT 
CHARACTER*64  NAINP,NAOUT,NAPLT 

INTEGER*2  HR,  MIN,  SEC,  CENTS,  DHR,  DMIN,  DSEC,  DCENTS,  DH,  DM, 

&  DS,DC 
CHARACTER*8  SRNAME 
DIMENSION  IQ(1) 

DIMENSION  XO(2000),X  1(2000) 

C  DIMENSION  IQT(200) 

DOUBLE  PRECISION  DQ(1) 

EQUIVALENCE  (Q(I),DQ(1),IQ(1)) 

EQUIVALENCE  (Q(l  199),XO(l)) 

EQUIVALENCE  (Q(2765),X1(1)) 

C  EQUIVALENCE  (Q(I278I),IQT(l)) 

DIMENSION  TITLE(20) 

DATA  REST1,REST2  /4HREST,4HART  / 

C 

Cbrc 

Cbrc  GO  TO'S  REPLACED  WITH  DO..END  DO  AND  IF..END  IF 
Cbrc 

MAXQ  =  45000 
DO  LEN=1,MAXQ 
Q(LEN)=0.D0 
END  DO 
Cbrc 

Cbrc  OPEN  I/O  DEVICES  BY  CALLING  lODECLS  -  JBB 
Cbrc 
INP  =  1 
OUT=  1 
PLT=  1 

CALL  IODECLS(INP,  OUT,  PLT) 

C 

C....  READ  TITLE 
C 

READ(5,901)  TITLE 
WRITE  (6,902)  TITLE 

WRITE(LU0UTP,’(//,5X,'’**’^*TIME  SET  TO  ZERO  AFTER  I/O  DEFS",//)') 
IF(TITLE(1)  .EQ.  RESTl  OR.  'nTLE(2)  .EQ.  REST2)  STOP 
C 

C....  READ  IN  SIZE  OF  PROBLEM  **♦* 

C 

READ(5,903)NNODE,NPRI,NAXOR,NELE,NUMMAT,NUMDIS,MXSTEP,NDGREE, 
1  DELT,NODMAX 
C 

C....  NET  UP  INDEX  TO  Q  ARRAY  ***♦ 

C 

MEQ=NNODE*NDGREE 

NODET=NNODE+NAXOR 

IF  (NODMAX.EQ.O)  NODMAX=NODET 

N1=NPRI*NDGREE 

LFINT=1 

LXC-NPRI*NDGREE+LFINT 
LYC-NODET+LXC 
LZC=NODET+LYC 
LINMEH=NODET+LZC 
NADD  =  0 

IF  ( M0D(N0DMAX,2)  .NE.  0  )  NADD  =  1 
LMESHN  =  NODMAX/2  +  NADD  +  LINMEH 
NADD  =  0 

IF  (  MOD(NODET,2)  .NE.  0  )  NADD  =  1 

LXO  -  NODET/2  +  NADD  +  LMESHN 

LXI=MEQ+LXO 

LBLAMB=MEC^LX1 

LVO=NPRI*9+LBLAMB 

LAO-Nl+LVO 

LA1=N1+LA0 

LSMASS=N1+LA1 

LFORCD=NHLSMASS 
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LFEXOD=Ni+LFORCD 
LAUX=N1+LFEX0D 
LrNDEX=MEQ+LAUX 
rXADD  =  0 

IF  (  MOD(NELE,2)  .NE.  0 )  EXADD  =  I 
LIX  =  NELE/2  +  1  +  EXADD  +  LINDEX 
LAL  =  NELE*7  +  LEX 
LDICOS=NELE+LAL 
LE=NELE*9+LDIC0S 
LNODIS=NUMMAT*  1 2+LE 
LANGLE=NUMDIS/24-LN0DIS+2 
LIPT=9*NUMDIS+LANGLE 
WRITE  (6,904)  LIFT 
C 

NFINT  =  NPRI*NDGREE 
NXC  =  NODET 
NYC  =  NODET 
NZC  =  NODET 
NINMEH  =  NODMAX 
NMESHN  =  NODET 
NXO  =  MEQ 
NX1=MEQ 
NBLAMB  =  NPRI 
NNBLAM  =  9*NPRI 
NVO  =  NI 
NAO  =  Nl 
NA1=N1 
NSMASS  =  N1 
NFORCD  -  N1 
NFEXOD  =  N1 
NAUX  =  MEQ 
NINDEX  =  NELE+1 
NEX  =  NELE 
NAL  =  NELE 
NDICOS  =  NELE 
NE^NUMMAT 
NNODIS  =  NUMDIS+1 
NANGLE  =  NUMDIS 
C 

C....  CALL  READIN  ♦♦♦♦ 

C 

CALL  GETnM(HR,MIN,SEC, CENTS) 

SRNAME  =  ’  READESP 

CALL  GETTIM(DHICDMIN,DSEC,DCENTS) 

CALL  SUBTIM(DHR,HR,DMIN,MIN,DSEC,SEC,DCENTS,CENTS,DH,DM,DS,DC) 
WRITE(LUTRM,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUOUTP,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUTRM,920)  SRNAME,  DH,  DM,  DS,  DC 
WRITE(LUOUTP,920)  SRNAME,  DH,  DM,  DS,  DC 

CALL  READIN  (Q(LSMASS),Q(LE),Q(LXC),Q(LYC),Q(LZC),Q(LEX),Q(LXO), 

1  Q(LX  1  ),Q(LDICOS),Q(LMESHN),Q(LINMEH),Q(LNODIS), 

2  Q(LANGLE)) 

CALL  GETTIM(DHR,DMIN,DSEC,DCENTS) 

CALL  SUBTIM(DHR,HR,DMIN,MIN,DSEC,SEC,DCENTS, CENTS, DH,DM,DS,DC) 
WRITE(LUTRM,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUOUTP,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUTRM,921)  SRNAME,  DH,  DM,  DS,  DC 
WRITE(LUOUTP,921)  SRNAME,  DH,  DM,  DS,  DC 
C 

IF  ( KONTRL(12)  .NE.  0  )  THEN 
MEQ2  =  NNODE-NPRI 
LXT  =  LIPT+1 
LYT  =  MEQ2+LXT 
LZT  =  MEQ2+LYT 
LIFT  =  MEQ2+LZT 
NXT  =  MEQ2 
NYT  =  MEQ2 
NZT  =  MEQ2 
NIPT  =  3*MEQ 
NNODEl  =NNODE-l 
DO  I=NFRI, NNODEl 
Q(  LXT-NPRI+I )  =  Q(  LXO+I ) 

Q(  LYT-NFRI+I )  =  Q(  LXl+I ) 

Q(  LZT-NFRI+I )  =  Q(  LDICOS+I ) 

END  DO 
ENDDF 
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NUMSEC=0 
LSTRS=LIPT+1 
NSTRS  =  0 

IF(KONTRL(9).NE.O)  THEN 
C 

C....  READ  NUMBER  OF  CROSS  SECTIONAL  GEOMETRIES 
C 

READ  (5,905)  NUMSEC,  MAXIPT 
LSTRS=LIPT+NUMSEC/2  +  1 
NSTRS -NUMSEC 
C 

END  IF 
C 

C  ...  ASSEMBLE  ELEMENT  INFORMATION 
C 

NSTRS  =  NSTRS  +  NUMMAT  +  MAXQ/2 
C 

SRNAME-’  ASSBLE’ 

CALL  GETTIM(DHR,DMIN,DSEC,DCENTS) 

CALL  SUBTIM(DHR,HR,DMIN, MIN, DSEC,SEC,DCENTS, CENTS, DH,DM,DS,DC) 
WRITE(LUTRM,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUOUTP,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUTRM,920)  SRNAME,  DH,  DM,  DS,  DC 
WRITE(LUOUTP,920)  SRNAME,  DH,  DM,  DS,  DC 

CALL  ASSBLE  (Q(LIX),Q(LXC),Q(LYC),Q(LZC),Q(LE),Q(LSMASS),Q(LBLAMB) 

1  ,Q(LDICOS),Q(LINDEX),Q(LSTRS),Q(LIPT),Q(LAL)) 

CALL  GETTIM(DHR,DMIN,DSEC,DCENTS) 

CALL  SUBTIM(DHR,HR,DMIN,MIN,DSEC,SEC,DCENTS,CENTS,DH,DM,DS,DC) 
WRITE(LUTRM,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUOUTP,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUTRM,921)  SRNAME,  DH,  DM,  DS,  DC 
WRITE(LUOUTP,921)  SRNAME,  DH,  DM,  DS,  DC 
LSTRES-IQ(2*LINDEX-  1+NELE)+  1+NUMMAT+LSTRS 
WRITE  (6,908)  LSTRES 
C 

LSTRAI=LSTRES+2*MAXIPT 
LYIPT=LSTRAI+2*MAXIPT 
LZIPT-LYIPT+MAXIPT*NUMSEC 
LXLEN=LZIPT+MAXIPT*NUMSEC 
LTHCK=LXLEN+MAXIPT*NUMSEC 
LFTIME=LTHCK+2*NUMSEC 
NSTRS  =  LSTRES  -  LSTRS 
NSTRES  =  MAXIPT  *  2 
NSTRAI- MAXIPT  ♦  2 
NYIPT- NUMSEC 
NZIPT- NUMSEC 
NXLEN  =  NUMSEC 
NTHCK-NUMSEC*2 
C 

C....  READ  PRESCRIBED  BOUNDARY  CONDITION  DATA  AND  ALLOCATE  SPACE 
C 

READ  (5,903)  NFLC,MFPTS,NFNODE,NDLC,MDPTS,NDNODE,IVNODE 
C 

LFFCN=LFTTME+MFPTS*NFLC 
LDTIME=LFFCN+MFPTS*NFLC 
LDFCN-LDTIME+MDPTS*NDLC 
LNODEF=LDFCN+MDPTS*NDLC 
LIDIR=LNODEF+(NFNODE+NDNODE)/2  +  1 
LNCURV=LIDIR+(NFNODE+NDNODE)/2  +  1 
LCOEF-LNCURV+(NFNODE+NDNODE)/2  +  1 
LT-LCOEF+NFNODE+NDNODE 
NFTIME  -  NFLC 
NFFCN-NFLC 
NDTIME  =  NDLC 
NDFCN-NDLC 
NNODEF  =  NFNODE+NDNODE 
NIDER  -  NFNODE+NDNODE 
NNCURV  =  NFNODE+NDNODE 
NCOEF  =  NFNODE+NDNODE 
C 

C...  READ  FORCE  AND  DISPLACEMENT  DATA 
C 

Cbrc  DOES  READFD  MATTER? 

Cbrc  CALL  READFD  (Q(LFTIME),Q(LFFCN),Q(LDTIME),Q(LDFCN),Q(LNODEF),Q(LID 
Cbrc  1IR),Q(LNCURV),Q(LC0EF),Q(LV0),Q(LINMEH),MFPTS,MDPTS) 

Cbrc 
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nnn  nnnnno 


....  READ  IN  OUTPUT  DATA 

READ  (5,905)  NPFREQ,  NPRU,  NPRS,  NPIC,  NANG,  NPSEC 

....  ALLOCATE  Q  ARRAY  FOR  OUTPUT  DATA 

NPTS=MXSTEP/NPFRE0^2 

NPLOT  =  NPRU+NPRS+3*NPSEC 

LDEF=NPTS+LT 

LUOUT=LDEF+4*NANG 

LSOUT=NPRU/2+ 1 +LUOUT 

LNPOUT=NPRS/2+  I+LSOUT 

LGLABE=2*NPIC+LNPOUT 

IF  (NPIC.LT.O)  LGLABE  =  LNPOUT+2 

LPSU  =  20*NPLOT  +  LGLABE 

LUU=NPTS*NPLOT+LPSU 

NT  =  NPTS 

NDEF  =  NANG 

NUOUT  =  NPRU 

NSOUT  =  NPRS 

NNPOUT  =  NPIC 

IF  (NPIC.LT.O)  NNPOUT=I 

NGLABE  =  NPLOT 

NPSU  =  NPLOT 

READ  INFO  FOR  SEC.  BODIES  FOR  CONTAC  AND  SET  INDEX  TO  Q 


IS=1 

IF(KONTRL(6).LE.O)  IS=0 

LVBRD=LUU+NPRU 

L^^BRD=LVBRI>^-IS♦45 

LABRI>LMBRIHIS*45 

LADDMAS=LABRD+IS*45 

LNCONEL=LADDMAS+120*IS 

LIPOSS=LNCONEL+64*IS 

LNELCON=LIPOSS+ 1  *IS 

LISEC=LNELCON+l  ♦IS 

LC=LISEC+6*KONTRL(6) 

LAREA=LC+IS^3 
LAEL=LAREA+IS*3 
LDIRCOS=LAEL+IS*15 
LIMPBRD=LDrRCOS+IS  ♦  1 5 
LIDEL-LIMPBRD+IS*15 
LVOLD=LIDEL+IS*15 
NUU  =  NPRU 
NVBRD  =  IS*45 
NMBRD  -  IS*45 
NABRD  =  IS*45 
NADDMAS=  120*IS 
NNCONEL  =  64*IS 
NIPOSS  =  IS 
NNELCON  =  IS 
NISEC  =  6*KONTRL(6) 

NC  =  IS*3 
NAREA  =  IS*3 
NAEL  =  IS*15 
NDIRCOS  =  IS*I5 
NIMPBRD  =  IS*15 
NIDEL  =  IS^15 

SRNAME  =  '  READOIP 

CALL  GETTIM(DHR,DMIN,DSEC,DCENTS) 

CALL  SUBTTM(DHR,HR,DMIN,MIN,DSEC,SEC,PCENTS,CENTS,DH,DM,DS,DC) 
WRITE(LUTRM,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUOUTP,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WR1TE(LUTRM,920)  SRNAME,  DH,  DM,  DS,  DC 
WRITE(LUOUTP,920)  SRNAME,  DH,  DM,  DS,  DC 

CALL  READOU  (Q(LUOUT),Q(LSOUT),Q(LNPOUT),Q(LGLABE),Q(LINMEH), 

1  Q(LIX),Q(LDEF),KONTRL(6),Q(LISEC)) 

CALL  GETTIM(DHR,DMIN, DSEC, DCENTS) 

CALL  SUBTIM(DHR,HR,DMIN,MIN,DSEC,SEC, DCENTS, CENTS, DH,DM,DS,DC) 
WRITE(LUTRM,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUOUTP,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUTRM,921)  SRNAME,  DH,  DM,  DS,  DC 
WRITE(LUOUTP,921)  SRNAME,  DH,  DM,  DS,  DC 
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LSS=LVOLD+Nl 

LA-NPRS+LSS 

LNTYPE-NPTS+LA 

LTOTAL=NPLOT+LNTYPE 

MUD2=2*MUD 

IF(KONTRL(ll).GE.l) 

1  WRITE(6,907)  LFINTXXC,LYC,LZC,LINMEH,LMESHN,LX0,LX1,LBLAMB, 

2  L  VO,L  AO,L  A I  ,LSMASS,LFORCD,LFEXOD,LAUX,LINDEX,LIX, 

3  lal,ldicos,le,lnodis,langle,lipt,lstrs,lstres, 

4  LSTRAI,LYIPT,LZIPTXXLEN,LTHCK,LFTIME,LFFCN, 

5  ldtime,ldfcn,lnodef,lidir,lncurv,lcoef,lt,luout, 

6  LS0UT,LNP0UT,LGLABE,LPSU,LUU,LSS,LA,LNTYPE,LT0TAL 
NVOLD  =  N! 

NSS-NPRS 
NA  =  NPTS 
NNTYPE  =  NPLOT 
C 

C  ALLOCATION  OF  Q  ARRAY  FOR  SLIDING  INTERFACES 
C 

NOPT=KONTRL(4) 

LNCP=LTOTAL 

LNASN=5*NOPT+LNCP 

LDICOP=  1.5  *NOPT+LNASN 

LALPHA=9*NOPT+LDICOP 

LUP=9*NOPT+LALPHA 

LUP2-3*NOPT+LUP 

LNPNO-3*NOPT+LUP2 

LSEATK=NOPT/2+  1+LNPNO 

LUPOLI>2*NOPT+LSEATK 

LVDAMP=3*NOPT+LUPOLD 

LUPl=NOPT+LVDAMP 

LTOTAL=3*NOPT+LUPl 

IF(KONTRL(l  1).GE.1)  WRITE(6,910)  LNCP,LNASN,LDIC0P,LALPHA,LUP, 

1  LUP2,LNPN0XSEATK,LUP0LD,L  VDAMPXUP 1 XTOTAL 

NNCP  =  NOPT 
NNASN  =  3*NOPT 
NDICOP  =  NOPT 
NALPHA  =  NOPT 
NUP  =  3*NOPT 
NUP2  =  3*NOPT 
NNPNO  =  NOPT 
NSEATK  =  NOPT 
NUPOLD  =  3*NOPT 
NVDAMP  =  NOPT 
NUPl  =3*NOPT 
IF(LTOTAL.LE.MAXQ)  THEN 
WRITE(6,909)  LTOTAL 

c 

C....  CALL  SOLVE  FOR  EXPLICT  PROBLEM 
C 

SRNAME  =  '  SOLVE’ 

CALL  GETTIM(DHR,DMIN,DSEC,DCENTS) 

CALL  SUBTIM(DHR,HR,DMIN,MIN,DSEC,SEC,DCENTS,CENTS,DH,DM,DS,DC) 

WRITE(LUTRM,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 

WRITE(LUOUTP,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 

WRITE(LUTRM,920)  SRNAME,  DR  DM,  DS,  DC 

WRITE(LUOUTP,920)  SRNAME,  DH,  DM,  DS,  DC 

CALL  SOLVE  (Q{LNODIS),Q(LSMASS),Q(LXC),Q(LYC),Q(LZC),Q(LIX), 

1  Q(LE),Q(LX0),Q(LXI),Q(LV0),Q(LA0),Q(LA1),Q(LF0RCD), 

2  DQ(LFINT),Q(LBLAMB),Q(LDIC0S),Q(LINMEH), 

3  Q(LAL),Q(LINDEX),Q(LSTRS),Q(LSTRAI),Q(LSTRES), 

4  Q(LIPT),Q(LFEX0D),Q(LNCP),Q(LNASN),Q(LDIC0P), 

5  Q(LALPHA),Q{LUP),Q(LUP2),Q(LNPN0),Q(LSEATK), 

6  Q(LUPOLD),Q(L  VDAMP),Q(LUP  1  ),Q{L  VOLD)) 

CALL  GETTIM(DHR,DMIN,DSEC,DCENTS) 

CALL  SUBTIM(DHR,HR,DMIN,MIN,DSEC,SEC,DCENTS,CENTS,DH,DM,DS,DC) 
WRITE(LUTRM,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUOUTP,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUTRM,921)  SRNAME,  DH,  DM,  DS,  DC 
WRITE(LUOUTP,921)  SRNAME,  DH,  DM,  DS,  DC 
SRNAME-’  STOP' 

CALL  GETTIM(DHR,DMIN, DSEC, DCENTS) 

CALL  SUBTIM(DHR,HR,DMIN,MIN,DSEC,SEC,DCENTS,CENTS,DH,DM,DS,DC) 
WRrrE(LUTRM,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUOUTP,920)  SRNAME,  DHR,  DMIN,  DSEC,  DCENTS 
WRITE(LUTRM,920)  SRNAME,  DH,  DM,  DS,  DC 
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WRITE(LUOUTP,920)  SRNAME,  DH,  DM,  DS,  DC 
STOP 

WRITE  (6,912)  LTOTAL 
END  IF 

STOP 

C 

901  FORMAT  (20A4) 

902  FORMAT  ( 1 H 1 , 1 0X,20 A4) 

903  FORMAT  (6I5,I6,I4,D  1 0.3,15) 

904  FORMAT  (43H  TOTAL  LENGTH  OF  Q  ARRAY  ENTERING  READIN  IS,I5) 

905  FORMAT  (1615) 

907  FORMAT  (43H  THE  FOLLOWING  IS  THE  INDEXS  TO  THE  Q  ARRAY//9H  LFINT 
1-,I5,9HLXC  .,I5,9HLYC  -,I5,9HLZC  -,I5,9H  LINMEH -,I5/9 

2H  LMESHN  .,I5,9H  LXO  -,I5,9H  LXl  -,I5,9H  LBLAMB  -,I5,9H  LVO 
3  .,I5/9HLAO  -,I5,9HLA1  -,I5,9H  LSMASS -,I5,9H  LFORCD -,I 

45,9HLFEXOD-,I5/9HLAUX  -,I5,9H  LINDEX -,I5,9H  LEX  -,I5,9HL 
SAL  .,I5,9H  LDICOS  -,I5/9H  LE  -,I5,9H  LNODIS  -,I5,9H  LANGLE 
6-,I5,9H  LIFT  .,I5,9H  LSTRS  .,I5,9H  LSTRES  -,I5/9H  LSTRAI  -,I5,9 
7HLYIPT  -,I5,9HLZIPT  -,I5,9HLXLEN  -,I5,9HLTHCK  -,I5/9HLFT1 
8ME-,I5,9HLFFCN  -,I5,9H  LDTIME -,I5,9H  LDFCN  -,I5,9H  LNODEF -,I 
95/9H  LIDIR  -,I5,9H  LNCURV  -,I5,9H  LCOEF  -,I5/9H  LT  -,I5,9H  L 
SUOUT  -,I5/9HLSOUT  -,I5,9H  LNPOUT -,I5,9H  LGLABE -,I5,9H  LPSU 
$-,I5,9HLUU  -,I5/9HLSS  -,I5,9HLA  -,I5,9H  LNTYPE -,I5,9 

$H  LTOTAL  .,15) 

908  FORMAT  (49H  TOTAL  LENGTH  OF  Q  ARRAY  AFTER  CALL  TO  ASSBLE  IS  ,  15) 

909  FORMAT  (/IOX,27HTOTAL  LENGTH  OF  Q  ARRAY  IS  ,16) 

9 1 0  FORMAT  (44H  ALLOCATION  OF  Q  ARRAY  FOR  SLIDING  INTERFACE/9H  LNCP 
1-.I5,9HLNASN  .,I5,9H  LDICOP -,I5,9H  LALPHA -,I5,9H  LUP  -,I5/9 

2HLUP2  -,I5,9HLNPNO  -,I5,9H  LSEATK  .,I5,9H  LUPOLD  .,I5,9H  LVDA 
3MP-,I5/9HLUPI  .,15, 9H  LTOTAL -,I5) 

912  FORMAT(1HO,27HREQUIRED  LENGTH  OF  ARRAY  =  ,I5,21H  EXECUTION  TERMIN 
lATED  ) 

Cbrc 

Cbrc  FORMATS  920  AND  92 1  ADDED  TO  PRINT  TIMIMG  INFORMATION 
Cbrc 

920  FORMAT(//,5X,'******TIME  OF  CALL  TO  SR  ’,A8,*:  ’,I2,':M2,':M2, 

+  ':M2y/) 

921  FORMAT(//,5X,'******TIME  OF  RETURN  FROM  SR  ',A8,’:  M2,':',I2,  . 

+’:',l2,’:M2y/) 

END 
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COMMON  /ADJUST/  NFINT,NXC,NYC,NZC,NINMEH,NMESHN,NXO,NXUNBLAMB, 

1  NVO,NAO,NA  1  ,NSMASS,NFORCD,NFEXOD,NAUX,NINDEX, 

2  NIX,NAL,NDICOS,NE,NNODIS,NANGLE,NXT,NYT,NZT, 

3  NIPT,NSTRS,NSTRES,NSTRAI,NYIPT,NZIPT,NXLEN, 

4  NTHCK,NFnME,NFFCN,NDTIME,NDFCN,NNODEF,NlDIR, 

5  NNCURV,NCOEF,NT,NDEF,NUOUT,NSOUT,NNPOUT, 

6  NGLABE,NPSU,NUU,NVBRD,NMBRD,NABRD,NADDMAS, 

7  NNCONEL,NIPOSS,NNELCON,NISEC,NC,NAREA,NAEL, 

8  NDIRCOS,NIMPBRD,NIDEL,NVOLD,NSS,NA,NNTYPE, 

9  NNCP,NNASN,NDICOP,NALPHA,NUP,NUP2,NNPNO, 

A  NSEATK,NUP0LD,NVDAMP,NUP1,NNBLAM 


COMMON  /ARRAY/  MAXQ,  DUMl,  Q(45000) 


COMMON  /CONTRL/  KONTRL(  16) 


COMMON  /DYNAM/  DELT,TIMENP,MXSTEP,NTSTEP,TIME 

COMMON  /INDEX/  LFINT,LXC,LYC,LZC,LINMEH,LMESHN,LXO,LXl,LBLAMB,LVO, 
lLAO,LAl,LSMASS,LFORCD,LFEXOD,LAUX,LINDEX,LIX,LAL,LDICOS,LE,LNODIS, 

2langlexipt,lstrs,lstres,lstrai,lyipt,lzipt,lxlen,lthck,lftime,lff 

3CN,LDTIME,LDFCN,LNODEF,LIDIR,LNCURV,LCOEF,LT,LUOUT,LSOUT,LNPOUT,LG 
4LABE,LPSU,LUU,LSS,LA,LNTYPE,LNCP,LNASN,LDIC0P,LALPHA,LUP,LUP2,LNPN 
50,LSEATK,LUPOLD,L  VDAMPXUP  1  ,L  VBRD,LMBRD,L  ABRD,LADDMAS,LNC0NEL, 
.LIP0SS,LNELC0N,LISEC,LC,LAREA,LAEL,LDIRC0S,LIMPBRD,LIDEL,LV0LD, 

.  LTOTAL,LDEF 

COMMON  /MATRIX/  NAM,NB,NR 
COMMON  /NUMINT/  NUMSEC,MAXIPT 

COMMON  /OUTPA/  NPRU,  NPRS,  NPFREQ,  NPIC,  NPLOT,  NPTS,  NANG,  NPSEC 

COMMON  /PRESBC/  NFLC,MFPTS,NFNODE,NDLC,MDPTS,NDNODE,IVNODE 

COMMON  /SIZE/  NNODE,NPRI,NAXOR,NELE,NUMMAT,NUMDIS,NPDIS,NDGREE,NOD 
1  MAX,MUD 
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Appendix  B 


Visual  Basic  Code  for  the  Input  File  Interface 


HSM  User  Interface  Instructions 


Installing  HSM 

An  installation  program  is  provided  to  install  HSM.  To  begin  the  installation,  insert 
HSM  disk  #1  into  floppy  drive  A:,  select  Run  from  the  Windows  File  Menu,  and  then 
type  in  A:\SETUP.EXE.  Click  on  OK  and  follow  the  instructions  given  on  the 
screen.  You  will  be  prompted  when  to  insert  disk  #2  into  drive  A.  When  the 
installation  process  in  complete  the  HSM  group  and  icon  will  be  created  for  you. 


Running  HSM 

After  the  HSM  software  is  installed,  follow  these  steps  to  run  HSM. 

1 .  Double  click  on  the  HSM  icon  and  the  program  will  start. 

2.  Select  an  input  file  using  the  Open  option  on  the  File  menu. 

3.  Make  any  editing  changes  required  to  the  data  from  the  input  file. 

Note:  Some  data  cannot  be  changed  without  also  changing  the  source  code 
for  the  Fortran  HSM  program  and  then  recompiling. 

4.  Save  the  revised  input  file  using  the  Save  option  on  the  File  menu. 

5.  Select  Solve  from  the  main  menu  to  run  the  Fortran  HSM  program. 

A  blank  DOS  screen  will  appear  while  this  program  in  running.  If  a  slow 
processor  is  being  used,  this  program  will  require  several  minutes  to 
complete  execution. 

6.  Select  Plot  from  the  main  menu  to  display  the  plots  from  the  output  file. 

7.  Exit  HSM  by  selecting  Exit  on  the  File  menu. 
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C;\HSMINPUT\HSMINPUT.FRM  12/1/95  9:46:06  AM 

Option  Explicit 


Sub  Fonn_Load  ( ) 

*Tb±s  routlna  Initialize  varlahlms  and.  grids 
'  Suhrautlnss  callad:  Materials 
'  NoeZeData 

'  Element 

'  Displace 

'  Motion 

'  Stress 

'  Picture 

*  FanctlonSpec 

'  Plane 

*  l^lne 

NUMMAT  -  1 

tabHSMInput .CurrTab  =  0 

*  setup  grids  £or  Input  file 

Call  Materials 
Call  NodeData 
Call  Element 
Call  Displace 
Call  Motion 
Call  Stress 
Call  Picture 
Call  FunctionSpec 
Call  Plane 
Call  Spine 

End  Sub 

Sub  mnuFileExit_Click  () 

End 

End  Sub 

Sub  innuFileOpen_Click  () 

Call  ReadInputFile 

End  Sub 

Sub  mnuFileSave_Click  () 

Call  SaveInputFile 

End  Sub 

Sub  mnuPlot_Click  () 

Call  ReadOutFile 

End  Sub 

Sub  mnuSolve_Click  () 

*Thls  routine  copies  the  current  Input  file  to  hsm.lnp  and  shells  to  DOS 
'  to  run  the  Fortran  executable  HSM  program. 

Dim  X  'return  value  from  shell 

If  Infile  <>  Then 

FileCopy  Infile,  App.Path  &  ”\hsm.inp" 
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ChDir  "c:\hsm” 

X  =  Shell (App . Path  &  "\brchsm.exe”,  2) 
While  GetModuleUsage (x)  >  0 
DoEvents 
Wend 
End  If 

End  Sub 
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C:\HSMINPUT\PLOT.FEyyI  11/30/95  11:32:26  AM 


Option  Explicit 


Sub  cmdClose_Click  () 

f rmPlot . Hide 

End'  Sub 
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C:\HSMINPUT\HSM.BAS  11/30/95  11:32:52  AM 


Option  Explicit 


Sub  Displace  () 

*  label  columns  for  displacement  nodes 

frmHSMInput . tblDisplace . CoiumnName ( 1 )  = 
frmHSMInput . tblDisplace . CoiumnName ( 2 )  = 
frmHSMInput. tblDisplace. CoiumnName (3)  = 
frmHSMInput . tblDisplace . CoiumnName { 4 )  = 
frmHSMInput . tblDisplace .CoiumnName ( 5 )  = 
frmHSMInput. tblDisplace. CoiumnName (6)  = 
frmHSMInput . tblDisplace . CoiumnName ( 7 )  = 

*slze  columns  for  displacement  nodes 

frmHSMInput . tblDisplace . ColumnSize ( 1 )  = 
frmHSMInput . tblDisplace . ColumnSize ( 2 )  = 
frmHSMInput . tblDisplace . ColumnSize ( 3 )  = 
frmHSMInput . tblDisplace .ColumnSize ( 4 )  = 
frmHSMInput .tblDisplace.ColumnSize (5)  = 
frmHSMInput. tblDisplace. ColumnSize (6)  - 
frmHSMInput . tblDisplace . ColumnSize {7 )  = 
frmHSMInput . tblDisplace . ColumnWidth ( 1 ) 
frmHSMInput . tblDisplace . ColumnWidth ( 2 ) 
frmHSMInput . tblDisplace . ColumnWidth ( 3 ) 
frmHSMInput .tblDisplace. ColumnWidth (4 ) 
frmHSMInput . tblDisplace .ColumnWidth ( 5 ) 
frmHSMInput . tblDisplace . ColumnWidth { 6 ) 
frmHSMInput . tblDisplace . ColumnWidth ( 7 ) 

End  Sub 

SiJb  Element  () 

'label  colmnna  for  elements 

frmHSMInput . tblElements . CoiumnName ( 1 )  = 
frmHSMInput . tblElements . CoiumnName ( 2 )  = 
frmHSMInput . tblElements . CoiumnName ( 3 }  = 
frmHSMInput. tblElements. CoiumnName (4 )  = 
frmHSMInput . tblElements . CoiumnName ( 5 )  = 
frmHSMInput . tblElements . CoiumnName ( 6 )  = 
frmHSMInput . tblElements . CoiumnName ( 7 )  ^ 
frmHSMInput . tblElements . CoiumnName ( 8 )  = 
frmHSMInput . tblElements . CoiumnName ( 9 )  = 
frmHSMInput .tblElements .CoiumnName (10)  = 
frmHSMInput . tblElements . CoiumnName ( 11 )  = 
frmHSMInput . tblElements . CoiumnName (12 }  = 
frmHSMInput . tblElements . CoiumnName ( 13 )  = 
frmHSMInput . tblElements . CoiumnName ( 14 )  = 
frmHSMInput . tblElements . CoiumnName ( 15 )  = 
frmHSMInput . tblElements . CoiumnName (16)  = 

*  size  columns  for  elements 

frmHSMInput . tblElements . ColumnSize ( 1 )  = 
frmHSMInput . tblElements .ColumnSize (2 )  = 
frmHSMInput . tblElements .ColumnSize ( 3 )  = 
frmHSMInput . tblElements . ColumnSize ( 4 )  = 
frmHSMInput . tblElements . ColumnSize (5)  = 
frmHSMInput .tblElements . ColumnSize ( 6 )  = 
frmHSMInput . tblElements . ColumnSize ( 7 )  = 
frmHSMInput . tblElements , ColumnSize ( 8 )  = 
frmHSMInput . tblElements . ColumnSize ( 9 )  = 
frmHSMInput . tblElements . ColumnSize ( 10 )  = 
frmHSMInput . tblElements . ColumnSize ( 11 )  = 
frmHSMInput . tblElements . ColumnSize ( 12 )  = 
frmHSMInput .tblElements .ColumnSize (13)  = 
frmHSMInput .tblElements .ColumnSize (14 )  = 
frmHSMInput .tblElements .ColumnSize (15)  = 
frmHSMInput . tblElements . ColumnSize ( 16 )  = 
frmHSMInput . tblElements . ColumnWidth ( 1 )  = 
frmHSMInput . tblElements . ColumnWidth ( 2 )  = 
frmHSMInput . tblElements . ColumnWidth ( 3 )  = 


"NODE" 

"TRANS.  X  DF" 
"TRANS.  Y  DF" 
"TRANS.  Z  DF" 
"ROT.  ABOUT  X" 
"ROT.  ABOUT  Y" 
"ROT.  ABOUT  Z" 
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1 

1 

1 

1 

1 

1 

6 

16 
16 
16 
16 
16 
^  16 


"No." 

"Nl" 

"N2" 

"N3" 

"N4" 

"N5" 

"N6" 

"N7  " 
"COOR" 

:  "MTYP" 
:  "ETYP" 
"Nl" 
"N2" 
"N3" 

"COOR" 


5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

8 

12 

12 
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f rmHSMInput , tblElements . ColumnWidth ( 4 ) 
f rmHSMInput . tblElements . ColumnWidth { 5 ) 
f rmHSMInput . tblElements . ColumnWidth ( 6 ) 
f rmHSMInput . tblElements . ColumnWidth ( 7 ) 
f rmHSMInput . tblElements . ColumnWidth { 8 ) 
f rmHSMInput . tblElements . ColumnWidth ( 9 ) 
f rmHSMInput . tblElements . ColumnWidth ( 10 ) 
f rmHSMInput . tblElements . ColumnWidth ( 11 ) 
f rmHSMInput . tblElements , ColumnWidth ( 12 ) 
f rmHSMInput . tblElements .ColumnWidth ( 13 ) 
f rmHSMInput . tblElements . ColumnWidth (14) 
f rmHSMInput . tblElements . ColumnWidth ( 15 ) 
f rmHSMInput . tblElements . ColumnWidth ( 16 ) 

End  Sub 

Sub  FunctionSpec  ( ) 

'label  columns  for  functions  specs 

f rmHSMInput . tbl FuncSpec . ColumnName ( 1 )  = 
frmHSMInput . tblFuncSpec.ColumnName (2 )  = 
f rmHSMInput . tbl FuncSpec . ColumnName { 3 )  = 

'size  columns  for  matezlals  properties 

frmHSMInput . tblFuncSpec.ColumnSize (1 )  = 
f rmHSMInput . tblFuncSpec.ColumnSize ( 2 )  = 
frmHSMInput . tblFuncSpec.ColumnSize (3)  = 
frmHSMInput . tbl FuncSpec . ColumnWidth { 1 )  ^ 
frmHSMInput . tblFuncSpec. ColumnWidth | 2 )  • 
frmHSMInput . tblFuncSpec. ColumnWidth ( 3 )  ■ 

End  Sub 


=  12 
=  12 
1 
1 
1 

12 

=  12 
=  12 
=  1 
=  12 
=  1 
=  1 
=  12 


"  TIME  t" 
"  f  ( t )  " 

"  fMt)" 


10 

10 

10 

15 

15 

15 


Sub  Materials  () 

'label  columns  for  materials  properties 

frmHSMInput. tblMat Prop. ColumnName (1)  =  "MTYP” 
frmHSMInput . tblMat Prop. ColumnName ( 2 )  =  "LTYP” 
frmHSMInput . tblMat Prop.ColumnName (3)  -  "El” 
frmHSMInput .tblMat Prop. ColumnName ( 4 )  =  "E2” 
frmHSMInput.tblMatProp. ColumnName (5)  =  ”E3" 
frmHSMInput . tblMat Prop . ColumnName ( 6 )  =  ”E4" 
frmHSMInput .tblMatProp. ColumnName (7 )  =  "E5” 
frmHSMInput . tblMat Prop.ColumnName ( 8)  =  "E6" 
frmHSMInput . tblMat Prop. ColumnName ( 9)  =  "E7" 
frmHSMInput. tblMatProp.ColumnName(lO)  =  "E8" 
frmHSMInput.tblMatProp. ColumnName (11)  =  "E9" 
frmHSMInput .tblMatProp. ColumnName (12)  =  "ElO" 
frmHSMInput .tblMatProp. ColumnName (13)  =  "Ell" 
frmHSMInput . tblMatProp. ColumnName (14 )  =  "E12" 

'size  columns  for  materials  properties 

frmHSMInput.tblMatProp.ColumnSize (1)  =  5 
frmHSMInput . tblMat Prop.ColumnSize (2 )  =  5 
frmHSMInput . tblMatProp. ColumnSize ( 3 )  =  10 
frmHSMInput . tblMatProp. ColumnSize ( 4 )  =  10 
frmHSMInput .tblMatProp. ColumnSize (5)  =  10 
frmHSMInput. tblMatProp. ColumnSize(6)  =  10 
frmHSMInput . tblMat Prop, ColumnSize ( 7 )  =  10 
frmHSMInput.tblMatProp.ColumnSize(8)  =  10 
frmHSMInput .tblMat Prop.ColumnSize ( 9)  =  10 
frmHSMInput. tblMatProp. ColumnSize (10)  =  10 
frmHSMInput. tblMatProp. ColumnSize(ll)  =  10 
frmHSMInput. tblMatProp. ColumnSize (12)  =  10 
frmHSMInput .tblMatProp. ColumnSize (13)  =  10 
frmHSMInput .tblMatProp. ColumnSize (14 )  =10 
frmHSMInput . tblMatProp.ColumnWidth (1 )  =  8 
frmHSMInput .tblMatProp.ColumnWidth (2)  =  8 
frmHSMInput .tblMatProp.ColumnWidth(3)  =  12 
frmHSMInput . tblMat Prop.ColumnWidth( 4 )  =  12 
frmHSMInput. tblMatProp.ColumnWidth (5)  =  12 
frmHSMInput .tblMat Prop.ColumnWidth( 6)  =  12 
frmHSMInput. tblMatProp.ColumnWidth (7 )  =  12 
frmHSMInput . tblMatProp.ColumnWidth ( 8 )  =  12 
f rmHSMInput. tblMat Prop. ColumnWidth ( 9)  =  12 
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f rmHSMInput . tblMat Prop . ColumnWidth ( 10 )  =  12 
f rmHSMInput . tblMat Prop . ColumnWidth ( 11 )  =  12 
f rmHSMInput . tblMat Prop. ColumnWidth ( 12 )  =  12 
f rmHSMInput , tblMat Prop. ColumnWidth ( 13 )  =  12 
f rmHSMInput . tblMatProp . ColumnWidth ( 14 )  =  12 

*3^tvp  adit  suLsks  for  materials  properties 

f  rmHSMInput.  tblMatProp.EditMask:(  3)  =  "Scientific” 
frmHSMInput.tblMatProp.EditMask(4 )  =  "Scientific" 
f rmHSMInput . tblMat Prop . EditMask ( 5 )  =  "Scientific" 
frmHSMInput . tblMatProp. EditMask ( 6 )  =  "Scientific" 
frmHSMInput. tblMat Prop. EditMask (7 )  =  "Scientific" 
frmHSMInput. tblMat Prop. EditMask (8)  =  "Scientific" 
frmHSMInput . tblMatProp. EditMask ( 9 )  =  "Scientific" 
frmHSMInput .tblMatProp. EditMask(lO)  =  "Scientific" 
frmHSMInput . tblMatProp. EditMask ( 11 )  =  "Scientific" 
frmHSMInput .tblMatProp. EditMask(12)  =  "Scientific" 
frmHSMInput . tblMatProp. EditMask (13 )  =  "Scientific" 
frmHSMInput . tblMatProp. EditMask (14 )  =  "Scientific" 

End  Sub 

Sub  Motion  ( ) 

*lahml  Golvams  for  taotxon  lines 

frmHSMInput . tblMotion. ColumnName ( 1 )  =  "UOUT" 
f rmHSMInput. tblMotion.ColumnName (2)  =  "J" 
frmHSMInput . tblMotion . ColumnName { 3 )  =  "K" 
frmHSMInput . tblMotion . ColumnName ( 4 )  =  "L" 
frmHSMInput .tblMotion.ColumnName (5)  =  "LABEL" 

'size  coltusns  for  motion  lines 

frmHSMInput . tblMotion . Columns! ze ( 1 )  =  7 
frmHSMInput .tblMotion, ColumnSize (2 )  -  1 
frmHSMInput . tblMotion . ColumnSize ( 3 )  =  1 
frmHSMInput . tblMotion. ColumnSize ( 4 )  -  1 
frmHSMInput. tblMotion.ColumnSize (5)  =  40 
frmHSMInput. tblMotion.ColumnWidth(l)  =  10 
frmHSMInput .tblMotion. ColumnWidth (2)  =  5 
frmHSMInput. tblMotion. ColumnWidth (3)  =  5 
frmHSMInput . tblMotion. ColumnWidth ( 4 )  =  5 
frmHSMInput .tblMotion. ColumnWidth (5)  =40  . 

End  Sub 

Sub  NodeData  ( ) 

*  label  columns  for  noda.1  dafca 

frmHSMInput. tblNodalData.ColumnName(l)  =  "Node" 
frmHSMInput . tblNodalData . ColumnName ( 2 )  =  "I" 
frmHSMInput . tblNodalData . ColumnName ( 3 )  =  "L" 
frmHSMInput . tblNodalData . ColumnName ( 4 )  =  "N" 
frmHSMInput. tblNodalData. ColumnName (5)  =  "X-ORD" 
frmHSMInput . tblNodalData . ColumnName ( 6 )  =  "Y~0RD" 
frmHSMInput . tblNodalData . ColumnName ( 7 )  =  "Z-ORD" 
frmHSMInput . tblNodalData.ColumnName (8 )  =  "TMASS(l)" 
frmHSMInput. tblNodalData. ColumnName ( 9)  =  "TMASS(2)" 
frmHSMInput , tblNodalData . ColumnName ( 10 )  =  "TMASS(3)" 
frmHSMInput . tblNodalData . ColumnName ( 11 )  =  "TMASS(4)" 

'size  columns  for  noda.1  data 

frmHSMInput.tblNodalData.ColumnSize(l)  =  5 
frmHSMInput . tblNodalData . ColumnSize ( 2 )  =  1 
frmHSMInput . tblNodalData . ColumnSize ( 3 )  =  1 
frmHSMInput.tblNodalData.ColumnSize(4 )  =  1 
f rmHSMInput. tblNodalData.ColumnSize (5)  =  10 
frmHSMInput . tblNodalData . ColumnSize ( 6 )  =  10 
frmHSMInput . tblNodalData . ColumnSi ze ( 7 )  =  10 
frmHSMInput . tblNodalData. ColumnSize ( 8 )  =  10  . 

frmHSMInput . tblNodalData . ColumnSize ( 9 )  =  10 
frmHSMInput . tblNodalData . ColumnSize ( 10 )  =  10 
frmHSMInput . tblNodalData . ColumnSize ( 11 )  =  10 
frmHSMInput . tblNodalData .ColumnWidth (1 )  =  8 
frmHSMInput .tblNodalData. ColumnWidth (2)  =  5 
frmHSMInput . tblNodalData.ColumnWidth( 3)  =  5 
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f rmHSMInput 
f rmHSMInput , 
f rmHSMInput , 
f rmHSMInput , 
f rmHSMInput . 
frmHSMInput . 
f rmHSMInput . 
frmHSMInput , 


tblNodalData , 
tblNodalData , 
tblNodalData . 
tblNodalData , 
tblNodalData , 
tblNodalData . 
tblNodalData . 
tblNodalData, 


ColumnWidth ( 4 ) 
ColumnWidth { 5 ) 
ColumnWidth ( 6 ) 
ColumnWidth (7 ) 
ColumnWidth ( 8 ) 
ColumnWidth ( 9 ) 
ColumnWidth (10) 
ColumnWidth ( 11 ) 


=  5 
=  12 
=  12 
=  12 
=  12 
=  12 
=  12 
=  12 


'satup  edit  autska  for  nodal  data 

frmHSMInput . tblNodalData . EditMask ( 8 )  =  "Scientific” 
frmHSMInput. tblNodalData. EditMask ( 9)  =  "Scientific" 
frmHSMInput. tblNodalData. EditMask (10)  =  "Scientific" 
frmHSMInput . tblNodalData . EditMask ( 11 }  =  "Scientific" 


End  Sub 


Sub  Picture  () 

'label  colimna  for  picture  Hues 

frmHSMInput . tblPicLines . ColumnName ( 1 )  = 
frmHSMInput . tbl PicLines . ColumnName ( 2 )  = 

'sire  colvaana  for  picture  lines 

frmHSMInput . tblPicLines . ColumnSize { 1 )  = 
frmHSMInput. tbl PicLines. ColumnSize {2 )  = 
frmHSMInput . tblPicLines . ColumnWidth { 1 )  = 
frmHSMInput . tblPicLines . ColumnWidth { 2 )  = 

End  Sub 

Sub  Plane  () 

'l^d9el  coluisns  for  plane  linos 

frmHSMInput . tblPlaneLines . ColumnName { 1 ) 
frmHSMInput . tbl PlaneLines . ColumnName ( 2 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 3 ) 
frmHSMInput , tblPlaneLines . ColumnName ( 4 ) 
frmHSMInput . tblPlaneLines . ColumnName { 5 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 6 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 7 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 8 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 9 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 10 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 11 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 12 } 
frmHSMInput . tblPlaneLines . ColumnName ( 13) 
frmHSMInput . tblPlaneLines . ColumnName ( 14 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 15 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 16 ) 
frmHSMInput . tblPlaneLines .ColumnName ( 17 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 18 ) 
frmHSMInput . tblPlaneLines . ColumnName (19) 
frmHSMInput . tblPlaneLines . ColumnName ( 20 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 21 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 22 ) 
frmHSMInput . tblPlaneLines .ColumnName ( 23 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 24 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 25 ) 
frmHSMInput . tblPlaneLines . ColumnName ( 26 ) 
frmHSMInput . tblPlaneLines , ColumnName ( 27 ) 

'sl^a  columns  for  piano  linos 

frmHSMInput . tblPlaneLines . ColumnSize ( 1 ) 
frmHSMInput . tblPlaneLines . ColumnSize ( 2 ) 
frmHSMInput . tblPlaneLines . ColumnSize ( 3 ) 
frmHSMInput . tblPlaneLines . ColumnSize ( 4 ) 
frmHSMInput .tblPlaneLines. ColumnSize (5) 
frmHSMInput . tblPlaneLines . ColumnSize ( 6 ) 
frmHSMInput . tblPlaneLines .ColumnSize ( 7 ) 
frmHSMInput . tblPlaneLines .ColumnSize ( 8 ) 
frmHSMInput . tblPlaneLines . ColumnSize ( 9) 
frmHSMInput . tblPlaneLines . ColumnSize ( 10 ) 
frmHSMInput . tblPlaneLines . ColumnSize ( 11 ) 
frmHSMInput . tblPlaneLines . ColumnSize (12 ) 


"NPOUT" 

"KON" 


10 
10 
^  15 
15 


"  NODE  " 

"  #  Contact  " 

"  DIR.  COS  X 
"  DIR.  COS  y 
"  DIR.  COS  z 
"  LINEAR  " 

"  CUBIC  " 

"  VISCOUS  " 

"  First  Node 
"  Last  Node 


"  xl  " 
"  yl  " 
"  zl  " 
"  x2  " 
"  y2  " 
"  z2  " 
"  x3  " 
"  y3  " 
"  z3  " 


=  5 
=  5 
=  10 
=  10 
=  10 
=  10 
=  10 
=  10 
=  10 
=  10 
=  1 
-  1 
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frmHSMInput . tblPlaneLines .ColumnSize { 13)  =  1 
frmHSMInput.tblPlaneLines.ColumnSize(14 )  =  1 
frmHSMInput . tblPlaneLines .ColumnSize (15 )  =  1 
frmHSMInput . tblPlaneLines .ColumnSize (16)  =  1 
frmHSMInput . tblPlaneLines .ColumnSize ( 17 )  =  1 
frmHSMInput . tblPlaneLines . ColumnSize ( 18 }  =  1 
frmHSMInput .  tblPlaneLines  . ColumnSize  ( 19 )  =  10' 
frmHSMInput . tblPlaneLines . ColumnSize (20)  =  10 
frmHSMInput . tblPlaneLines . ColumnSize ( 21 )  =  10 
frmHSMInput . tblPlaneLines .ColumnSize { 22 )  ^  10 
frmHSMInput . tblPlaneLines .ColumnSize ( 23)  =  10 
frmHSMInput . tblPlaneLines .ColumnSize (24 )  =  10 
frmHSMInput. tblPlaneLines, ColumnSize(25)  =  10 
frmHSMInput. tblPlaneLines. ColumnSize(26)  =  10 
frmHSMInput . tblPlaneLines .ColumnSize (27 )  =  10 
f  rmHSMInput,  tblPlaneLines.  ColumnWiclth(l)  =  8 
frmHSMInput . tbl PlaneLines . ColumnWidth ( 2 )  =  5 
frmHSMInput. tblPlaneLines. ColumnWidth(3)  =  12 
frmHSMInput, tblPlaneLines .ColumnWidth( 4 )  =  12 
frmHSMInput . tblPlaneLines . ColumnWidth ( 5 )  =  12 
frmHSMInput. tbl PlaneLines.ColumnWidth( 6)  =  12 
frmHSMInput. tbl PlaneLines. ColumnWidth (7)  =  12 
frmHSMInput . tblPlaneLines . ColumnWidth ( 8 )  =  12 
frmHSMInput . tblPlaneLines . ColumnWidth ( 9)  =  12 
frmHSMInput. tbl PlaneLines. ColumnWidth (10)  =  12 
frmHSMInput . tblPlaneLines .ColumnWidth ( 11 )  =  1 
frmHSMInput. tblPlaneLines. ColumnWidth (12)  =  1 
frmHSMInput . tblPlaneLines . ColumnWidth ( 13 )  =  1 
frmHSMInput. tbl PlaneLines. ColumnWidth (14 )  =  1 
frmHSMInput . tblPlaneLines . ColumnWidth ( 15 )  =  1 
frmHSMInput . tblPlaneLines .ColumnWidth (16)  =  1 
frmHSMInput . tblPlaneLines . ColumnWidth ( 17 )  =  1 
frmHSMInput . tblPlaneLines .ColumnWidth ( 18 )  =  1 
frmHSMInput . tblPlaneLines .ColumnWidth ( 19 )  =  12 
frmHSMInput . tblPlaneLines . ColumnWidth ( 20 )  =  12 
frmHSMInput . tblPlaneLines .ColumnWidth (21 )  =  12 
frmHSMInput. tbl PlaneLines. ColumnWidth (22)  =  12 
frmHSMInput . tblPlaneLines .ColumnWidth ( 23 )  =  12 
f rmHSMInput. tbl PlaneLines. ColumnWidth ( 24 )  =  12 
frmHSMInput . tbl PlaneLines . ColumnWidth ( 25 )  =  12 
frmHSMInput. tbl PlaneLines. ColumnWidth (26)  =  12 
frmHSMInput. tbl PlaneLines. ColumnWidth (27)  =  12 

End  Sub 


Sub  Spine  () 


'label  columns  for  spins 

frmHSMInput . tblSpine . ColumnName ( 1 ) 
frmHSMInput . tblSpine .ColumnName ( 2 ) 
frmHSMInput . tblSpine .ColumnName (3 ) 
frmHSMInput . tblSpine . ColumnName ( 4 ) 


”  NODE  " 

"  AXIAL  COMP" 

"  LAT.  BENDING" 
"ANT/ POST  BENDING" 


'sire  columns  for  spins 

frmHSMInput . tblSpine .ColumnSize (1 ) 
frmHSMInput . tblSpine . ColumnSize ( 2 ) 
frmHSMInput . tblSpine . ColumnSize ( 3 ) 
frmHSMInput . tblSpine . ColumnSize ( 4 ) 
frmHSMInput . tblSpine . ColumnWidth ( 1 ) 
frmHSMInput . tbl Spine . ColumnWidth ( 2 ) 
frmHSMInput . tblSpine , ColumnWidth ( 3 ) 
frmHSMInput . tblSpine . ColumnWidth ( 4 ) 

End  Svib 

Sub  Stress  () 

'label  columns  for  stress  lines 

frmHSMInput . tblStress . ColumnName ( 1 ) 
frmHSMInput . tblStress .ColumnName ( 2 ) 
frmHSMInput . tblStress . ColumnName ( 3 ) 
frmHSMInput . tblStress . ColumnName ( 4 ) 
frmHSMInput . tblStress . ColumnName { 5 ) 
frmHSMInput . tblStress .ColumnName (6) 
frmHSMInput . tblStress .ColumnName (7 ) 


=  5 
=  5 
=  5 
=  5 
=  10 
=  20 
=  20 
=  20 


=  "SOUT" 

-  "II" 

=  »I2" 

=  "13" 

=  "M" 

=  »N" 

=  "LABEL" 
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*3±M  colmans  for  strmas  linos 

f rmHSMInput . tbIStress . ColumnSize ( 1 )  =  5 
frmHSMInput.tblStress.ColumnSize(2)  =  1 
f rmHSMInput. tblStress.CoiumnSize (3)  =  1 
f rmHSMInput . tbIStress . ColumnSize { 4 )  =  1 
f rmHSMInput . tbIStress . ColumnSize ( 5 )  =  1 
f rmHSMInput . tbIStress . ColumnSize ( 6)  =  1 
frmHSMInput . tbIStress . ColumnSize { 7 )  =  40 
frmHSMInput. tbIStress. ColumnWidth(l)  =  10 
frmHSMInput . tbIStress . ColumnWidth ( 2 )  =  5 
frmHSMInput . tbIStress . ColumnWidth ( 3 )  =  5 
frmHSMInput .tbIStress .ColumnWidth ( 4 )  =  5 
frmHSMInput . tbIStress . ColumnWidth ( 5)  =  5 
frmHSMInput . tbIStress . ColumnWidth ( 6 )  =  5 
frmHSMInput . tbIStress . ColumnWidth ( 7 )  =40 

End  Sub 
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C:\HSMINPUT\INPUT.BAS  11/30/95  11:33:00  AM 


Option  Explicit 

Global  Infile  As  String 
Global  Outfile  As  String 


*  name  of  input  file 
'  name  of  output  file 


'  psL3^amater  VATiables 

Global  NNODE  As  Integer 
Global  NPRI  As  Integer 
Global  NAXOR  As  Integer 
Global  NELE  As  Long 
Global  NUMMAT  As  Long 
Global  NUMDIS  As  Integer 
Global  MXSTEP  As  Long 
Global  NDGREE  As  Integer 
Global  DELT  As  Double 
Global  NODMAX  As  Integer 


'  number  of  nodes  in  the  model 
'  numbeir  of  primery  nodes  in  the  model 

*  number  of  axis  orientation  nodes  in  the  laodel 

*  number  of  elements  in  the  model 

>  number  of  different  element  section  and  material  types 

*  mzmbeir  of  nodes  at  which  any  displacement  cosponents  are  specified 

*  number  of  time  steps  to  be  taJren 

'  number  of  degrees  of  freedom  per  node 
'  time  increment 
'  largest  node  number  in  model 


*  input  variables 

Global  NLOAD  As  Integer  '  load 

Global  NIC  As  Integer  '  displacement 


'  ou^9ut  control  variables 

Global  NPFREQ  As  Integer 
Global  NPRU  As  Integer 
Global  NPRS  As  Integer 
Global  NPIC  As  Integer 
Global  NANG  As  Integer 
Global  NUMSEC  As  Integer 
Global  NPTS  As  Integer 
»»  specified 
Global  El  As  Double 
Global  F2  As  Double 
Global  JSTART  As  Integer 
Global  JEND  As  Integer 
Global  NB  As  Integer 
Global  PLTDCD  As  Integer 
Global  PLTLAB  As  Integer 
Global  lOPTPLT  As  Integer 
Global  TOTALX  As  Integer 
Global  TOTALY  As  Integer 
Global  TOTALZ  As  Integer 
Global  XNEG  As  Integer 
Global  YNEG  As  Integer 
Global  ZNEG  As  Integer 


'  frequency  of  output 
'  number  of  motion  output  lines 
'  number  of  stress  output  lines 

*  number  of  cosplete  output  pictures 

'  used  when  ^LMPLT  Is  desired  In  output 
'  sets  of  cross-sectional  geometries 

'  number  of  points  wheire  the  motion  functions  ralue  and  derivative  are 

*  integration  constant  for  first  integration 

'  integration  constant  for  second  integration 

'  Inferior  disc  element  for  bottommost  vertebral  level  considered 
'  superior  disc  element  for  uppermost  v'ertebral  level  considered 
'  number  of  vertebrae 


'  width  of  plot  {x,z)  view 
'  width  of  plot  (YfZ)  view 
'  height  of  plot 

'  distance  of  the  origin  from  left  side  of  plot 
'  distance  of  the  origin  from  left  side  of  plot 
f  distance  of  the  origin  from  bottom  of  plot 


'  array  variables 

Global  K0NTRL(16)  As  Integer 
Global  NCP{2)  As  String 


Global 

TITLE (3) 

As 

String 

Global 

aryMAT( ) 

As 

String 

Global 

aryN0D( ) 

As 

String 

Global 

aryELE( ) 

As 

String 

Global 

aryDIS( ) 

As 

String 

Global 

aryIPT( ) 

As 

String 

Global 

aryMOT( ) 

As 

String 

Global 

arySTR( ) 

As 

String 

Global 

aryPIC( ) 

As 

String 

Global 

aryFSL( ) 

As 

String 

Global 

aryNOPt ) 

As 

String 

Global 

arySPN( ) 

As 

String 

Global 

aryVEC( ) 

As 

String 

program  contirol  lines 

primary  nodes  associated  with  a  pleme 

title  for  output 

material -section  property  lines 

nodal  data  lines 

element  data  lines 

displacement  lines 

cross  section 

motion  output  lines 

stress  output  lines 

output  picture  lines 

function  specification  lines 

plane  Identification  lines 

spinal  injury  function  lines 

X~Bar,  Y-Bar  Vectors 


Declare  Function  GetModuleUsage  Lib  "Kernel”  (ByVal  hModule  As  Integer)  As  Integer 


Sub  CrossSection  (buffer) 

'This  routine  extracts  fields  from  cross-sectional  geometries  lines 

Dim  j  As  Integer  'counter 
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For  j  =  1  To  NUMSEC 

aryIPT{j}  =  Mid$  (buf  f  er,  (j  -  1)  *  5  -t-  1,  5) 

Next  j 

End  Sub 

Sub  Displacement  (buffer,  i) 

'This  routine  extracts  fields  from  prescribed  dl^lacement  lines 


aryDIS (i. 

1) 

=  Mid$ (buffer,  1, 

4) 

'  node  number 

aryDIS ( i , 

2) 

=  Mid$ (buffer,  5, 

1) 

'  translational 

X 

aryDIS (i. 

3) 

=  Mid$ (buffer,  6, 

1) 

'  translational 

7 

aryDIS ( i, 

4) 

=  Mid$ (buffer,  7 , 

1) 

'  translational 

z 

aryDIS (i. 

5) 

=  Mid$ (buffer,  8, 

1) 

'  rotation  x 

aryDIS (i. 

6) 

=  Mid$ (buffer,  9, 

1) 

'  rotation  y 

aryDIS ( i. 

7) 

=  Mid$ (buffer,  10, 

1) 

'  rotation  z 

End  Sub 

Sub  Elements  (buffer,  i) 

'This  routine  extracts  fields  from  eleznent  data  lines 


aryELE (i, 

1) 

=  Mid$ (buffer. 

1,  5) 

, 

node  numben 

aryELE ( i , 

2) 

=  Mid$ (buffer. 

6,  5) 

Node  I 

aryELE (i. 

3) 

=  Mid$ (buffer. 

11,  5) 

, 

Node  J 

aryELE (i. 

4) 

=  Mid$ (buffer. 

16,  5) 

, 

primary  node  £or 

I 

aryELE (i. 

5) 

=  Mid$ (buffer. 

21,  5) 

, 

primary  node  for 

J 

aryELE (i. 

6) 

-  Mid$ (buffer. 

26,  5) 

, 

not  used 

aryELE (i. 

7) 

=  Mid$ (buffer. 

31,  5) 

, 

not  used 

aryELE ( i. 

8) 

=  Mid$ (buffer. 

36,  5) 

not  used 

aryELE (i. 

9) 

=  Mid$ (buffer. 

41,  5) 

, 

Node  K 

aryELE ( i , 

10) 

=  Mid$ (buffer. 

46,  5) 

material  t^e 

aryELE (i. 

11) 

=  Mid$ (buffer. 

51,  5) 

, 

element  t^e 

aryELE (i. 

12) 

=  Mid$ (buffer. 

56,  5) 

r 

not  used 

aryELE ( i. 

13) 

=  Mid$ (buffer. 

61,  5) 

, 

nuzober  of  sliding-  node  pairs 

aryELE (i. 

14) 

=  Mid$ (buffer. 

66,  5) 

, 

not  used 

aryELE (i. 

15) 

=  Mid$ (buffer. 

71,  5) 

, 

not  used 

aryELE ( i , 

16) 

-  Mid$ (buffer. 

76,  5) 

r 

level 

End  Sub 

Function 

FormatNum  (num,  w) 

As  String 

'This  function  concerts  a  number  to  a  strlngr  ^md  pads 
'It  with  blembs  on  the  left  to  achlev'e  width  w. 

'  num  =  number  to  convert 
'  w  =  desired  width 

Dim  strl  As  String 

strl  =  Mid$ ( Str$ (num) ,  2) 

While  (Len(strl)  <  w) 
strl  =  "  "  &  strl 
Wend 

FormatNum  =  strl 

End  Function 


Sub  ICIF  (buffer,  i) 

'This  routine  extracts  fields  from  IClF  data  lines 


aryFSLd,  1) 
aryFSLd,  2) 
aryFSLd,  3) 


Mid$ (buffer,  1,  10) 
Mid$ (buffer,  11,  10) 
Mid$ (buffer,  21,  10) 


End  Sub 


'  Tims  b 

'  motion  function  value  at  time  t 
'  derivative  of  function  at  time  t 
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Sub  MaterialPropertyLinel  (buffer,  i) 

*Tb±a  routine  axtr-acte  fields  from  material  property  lines  ^type  1) 

aryMAT(i,  1)  =  Mid$(buffer,  1,  5)  '  MTYP 

aryMAT(i,  2)  =  Mid$ (buf f er ,  6,  5)  *  LTYP 

End  Sub 

Sub  MaterialPropertyLine2  (buffer,  i) 

'This  routine  extracts  fields  from  material  property  lines  (typo  1) 

aryMAT(i,  3)  =  Mid$(buffer,  1,  10)  '  E(1,MTYP) 

aryMAT{i,  4)  =  Mid$  (buffer,  11,  10)  '  E (2 ^hfTYP) 

aryMATd,  5)  =  Mid${buffer,  21,  10)  '  E(3,lfryP) 

aryMATd,  6)  =  Mid$  (buffer,  31,  10)  '  E(4,MTYP) 

aryMATd,  7)  =  Mid$  (buffer,  41,  10)'  '  E(5,HrYP) 

aryMAT(i,  8)  =  Mid$ (buffer,  51,  10)  '  ECe^MTl^) 

End  Sub 

Sub  MaterialPropertyLine3  (buffer,  i) 

'This  routine  extracts  fields  from  material  property  lines  ^type  1) 

aryMAT(i,  9)  =  Mid$  (buffer,  1,  10)  '  E (7 ,lfrfP) 

aryMATd,  10)  =  Mid$  (buffer,  11,  10)  '  E(8,KrYF) 

ar:y^Td,  11)  =  Mid$  (buffer,  21,  10)  '  E(9,MrYP) 

aryMATd,  12)  =  Mid$  (buffer,  31,  10)  '  E(10,MryP) 

aryMATd,  13)  =  Mid$(buffer,  41,  10)  '  E(11,MTXP) 

ar^^^Td,  14)  =  Mid$  (buf f er ,  51,  10)  »  E(12,MTYP) 

End  Sub 

Sub  MotionLines  (buffer,  i) 


'This  routine  extracts  fields  from  motion  output  lines 


aryMOT (i. 

1 )  -  Mid$ (buffer. 

1. 

7) 

'  node  number 

aryMOT (i. 

2)  =  Mid$ (buffer. 

8, 

1) 

'  cozzponent  nuzziber  of  klnemstlc  variable  to  be 

output 

aryMOT (i. 

3)  =  Mid$ (buffer. 

9, 

1) 

'  displacement f  velocity,  or  acceleration  (0,1, 

2) 

aryMOT  d. 

4)  =  Mid$ (buffer. 

10, 

-  1) 

'  plot  control  (0-4) 

aryMOT (i. 

5)  =  Mid$ (buffer. 

21, 

,  40) 

'  label 

End  Sub 

Sub  NodalData  (buffer,  i) 

'This  routine  extracts  fields  from  nodal  data  lines 


aryNODd,  1)  = 

Micl$  (buffer. 

d 

5) 

'  node  nuzziber 

aryNODd,  2)  = 

Mid$ (buffer. 

6, 

1) 

'  coordinate  type 

aryNODd,  3)  = 

Mid$ (buffer. 

7, 

1) 

'  genera  tion  level 

aryNODd,  4)  = 

Mid$ (buffer. 

10, 

1) 

'  Secondery/Prlmery 

aryNODd,  5)  = 

Mid$ (buffer. 

11, 

10) 

'  X  coordinate 

aryNODd,  6)  == 

Mid$ (buffer, 

21, 

10) 

'  y  coordinate 

aryNODd,  7)  == 

Mid$ (buffer. 

31, 

10) 

'  z  coordinate 

aryNODd,  8)  == 

Mid$ (buffer. 

41, 

10) 

'  TMASS(l) 

aryNODd,  9)  = 

Mid$ (buffer. 

51, 

10) 

'  TMASS(2) 

aryNODd,  10)  = 

=  Mid$ (buffer. 

61 

,  10) 

'  TMAS3(S) 

aryNODd,  11)  = 

=  Mid$ (buffer. 

71 

,  10) 

'  TMASS(4) 

End  Sub 

Sub  OutputData  (buffer) 

'This  routine  extracts  fields  from  the  output  data  line 
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Dim  temp  As  Integer 


tesgporetry  VArzable 


NPFREQ  =  CInt(Mid$ (buffer,  1,  5))  ' 

frmHSMInput.txtNPFREQ  =  Mid$ (buf f er ,  1,  5) 

NPRU  =  CInt(Mid$ (buffer,  6,  5))  ' 

frmHSMInput .txtNPRU  =  Mid$ (buffer,  6,  5) 

NPRS  =  CInt (Mid$ (buffer,  11,  5))  ' 

frmHSMInput .txtNPRS  =  Mid$(buf f er,  11,  5) 

If  Len(buffer)  >  15  Then 

If  Mid$ (buffer,  16,  5)  <>  Space$(5)  Then 
NPIC  =  CInt (Mid$ (buffer,  16,  5))  ' 

End  If 

frmHSMInput. txtNPIC  =  Mid$(buffer,  16,  5) 

If  Mid$ (buffer,  21,  5)  <>  Space$(5)  Then 
NANG  =  CInt (Mid$ (buffer,  21,  5))  ' 

End  If 

frmHSMInput. txtNANG  =  Mid${buffer,  21,  5) 
frmHSMInput. txtNDREF  =  Mid$ (buffer,  26,  5) 
Else 

NPIC  =  0 
NANG  -  0 

frmHSMInput. txtNPIC  =  FormatNum (NPIC,  5) 
frmHSMInput. txtNANG  =  FormatNum (NANG,  5) 
frmHSMInput .txtNDREF  =  FormatNum (0,  5) 

End  If 


fi^guency  of  output 

number  of  motion  output  lines 

number  of  stress  output  lines 


number  of  coaplete  output  pictures 


used  when  EIl^LT  is  desired  in  output 


End  Sub 


Sub  ParameterLine  (buffer) 

'This  routine  extracts  fields  from  a  par^ulleter  line 


frmHSMInput . txtNNODE  =  Mid$ (buffer,  1,  5) 
NNODE  =  CInt (Mid$ (buffer,  1,  5)) 
frmHSMInput. txtNPRI  =  Mid$ (buffer,  6,  5) 

NPRI  =  CInt (Mid$ (buffer,  6,  5)) 
frmHSMInput.txtNAXOR  =  Mid$ (buffer,  11,  5) 
NAXOR  =  CInt (Mid$ (buffer,  11,  5)) 
frmHSMInput . txtNELE  =  Mid$ (buffer,  16,  5) 
NELE  =  CLng(Mid$ (buffer,  16,  5)) 
frmHSMInput .txtNUMMAT  =  Mid$ (buffer,  21,  5) 
NUMMAT  =  CLng(Mid$ (buffer,  21,  5)) 
frmHSMInput. txtNUMDIS  =  Mid$ (buffer,  26,  5) 
NUMDIS  =  CInt (Mid$ (buffer,  26,  5)) 

»»  are  specified 

frmHSMInput .txtMXSTEP  =  Mid$ (buffer,  31,  6) 
MXSTEP  =  CLng(Mid$ (buffer,  31,  6)) 
frmHSMInput. txtNDGREE  -  Mid$(buffer,  37,  4). 
NDGREE  =  CInt (Mid$ (buffer,  37,  4)) 
frmHSMInput . txtDELT  =  Mid$ (buffer,  41,  10) 
^DELT  =  Ci:bl(md$ (buffer,  41,  10)) 
frmHSMInput .txtNODMAX  =  Mid$ (buffer,  51,  5) 
NODMAX  -  Val (Mid$ (buffer,  51,  5)) 

If  NODMAX  -  0  Then 

NODMAX  =  NNODE  +  NAXOR 

frmHSMInput .txtNODMAX  =  FormatNum (NODMAX, 
End  If 


'  number  of  nodes  in  the  model 
f  number  of  primary  nodes  in  the  model 
'  number  of  axis  orientation  modes  in  the  model 
'  nu2ziber  of  elements  In  the  model 

'  number  of  different  element  section  end  material  types 
'  number  of  nodes  at  which  any  displacement  cosponents 

'  ntunber  of  time  steps  to  be  taken 
'  number  of  decrees  of  freedom  per  node 
'  time  increment 
'  largest  node  number  in  model 

5) 


End  Sub 


Sub  PictureLines  (buffer,  i) 

'This  routine  extracts  fields  from  a  output  picture  line 

aryPICd,  1)  =  Mid$  (buffer,  1,  10)  '  time  step  at  which  coaplete  output  picture  is  desired 

aryPICd,  2)  =  Mid$(buffer,  11,  10)  '  KON  (0-6) 

End  Sub 


Sub  PlanelD  (filenumber ,  buffer,  i) 

'This  routine  reads  plane  identification  lines  and 
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'extracts  thB  fxmld  data 


Dim  j  As  Integer  'counter 

Line  Input  #filenumber,  buffer 

aryNOP(i,  1]  =  Mid$  ( buf f er,  1,  5)  '  primary  node  hxzmber  designating  the  plane 

aryNOP(i,  2)  =  Mid$  (buffer^  6,  5)  '  total  number  of  primary  nodes  of  the  model  which  may 

»  contact  plane  J 

aryNOP(i,  3)  =  Mid$  (buffer,  11,  10)  '  dd.3:octxon  cosxno  of  acceleration  irector  with  rospect  to 

»»  the  global  x-axis 

aryNOP(i,  4)  =  Mid$ (buffer,  21,  10}  '  direction  cosine  of  acceleration  rector  with  respect  to 

»»  the  global  y~axis 

aryN0P(i,  5)  =  Mid$  (buffer,  31,  10)  '  direction  cosine  of  acceleration  rector  with  respect  to 

»»  the  global  z-^oc±3 

aryNOPd,  6)  Mid$(buffer,  41,  10)  '  linear  stiffness  of  elastic  plane  X 

aryNOPd,  7)  =  Mid$(buffer,  51,  10)  '  cubic  stiffness  of  elastic  pl^me  J 

aryN0P(i,  8)  =  Mid$(buffer,  61,  10)  '  fraction  of  riscous  damping  for  plane  X 

Line  Input  #f ilenumber,  buffer 
If  Val  (aryNOPd,  2))  >  0  Then 

For  j  -  1  To  Val  (aryNOPd,  2)) 

aryN0P(i,  j  +  8)  =  Mid$(buffer,  (j 
Next  j 
Else 

aryNOPd,  9)  =  Mid$  (buffer,  1,  5) 
aryN0P(i,  10)  =  Mid$ (buffer,  6,  5) 

End  If 

Line  Input  #filenumber,  buffer 
aryNOPd,  19)  =  Mid${buffer,  1,  10) 
aryNOPd,  20)  =  Mid$  (buffer,  11,  10) 
aryNOPd,  21)  =  Mid$  (buffer,  21,  10) 

Line  Input  #filenumber,  buffer 
aryNOP(i,  22)  =  Mtd$ (buffer,  1,  10) 
aryNOPd,  23)  =  Mid$  (buffer,  11,  10} 
aryNOPd,  24)  =  Mid$  (buffer,  21,  10) 

Line  Input  # f ilenumber,  buffer 
aryNOPd,  25)  =  Mid$  (buf fer,  1,  10) 
aryNOPd,  26)  =  Mid$  (buf fer,  11,  10) 
aryNOPd,  27)  =  Mid$  (buffer,  21,  10) 

If  KONTRL(14)  =  1  Then 

Line  Input  #filenumber,  buffer 
End  If 

End  Sub 

Sub  PlotLines  (filenunber,  buffer) 

'This  routine  reads  deformation  configuration  plot  lines 
'and  extracts  the  field  ralues 

Dim  i  As  Integer  '  counter 

Dim  ICMND  As  Integer  '  nxaabor  of  command  linos 

Dim  xmin  As  String  '  x'  minimna  v-alue 

Dim  xmax  As  String  '  x'  maximum  value 

Dim  ymin  As  String  '  y'  minimum  value 

Dim  ymax  As  String  '  y'  naximam  value 

Dim  zmin  As  String  '  s'  minimum  value 

Dim  zmax  As  String  '  s'  maximum  value 

Dim  IDN  7\s  Integer  '  fields  in  command  line 

Dim  NP  As  Integer  '  fields  in  command  line 

Dim  ID  As  String  '  fields  in  command  line 

Dim  strl  As  String  '  tenporary  string  variad^le 

Dim  CRLF  As  String  '  carriage  retum/line  feed 

CRLF  =  Chr$(13)  +  Chr$(10) 

'line  ISA  --  plot  choices 

Line  Input  #filenumber,  buffer 
PLTDCD  =  Val (Mid$ (buffer,  1,  5)) 

PLTLAB  =  Val (Mid$ (buffer,  6,  5)) 
lOPTPLT  =  Val (Mid$ (buffer,  11,  5)) 
frmHSMInput .txt PLTDCD. Text  =  Mid$ (buffer,  1,  5) 
frmHSMInput.txt PLTLAB. Text  =  Mid$ (buffer,  6,  5) 
frmHSMInput. txtIOPTPLT. Text  ^  Mid$ (buffer,  11,  5) 


-  1)  *  5  +  1,  5) 

'first  primary  node 
'last  primary  node 

'x  coordinate  for  point  1 
'y  coordinate  for  point  1 
's  coordinate  for  point  1 

'x  coordinate  for  point  2 
'y  coordinate  for  point  2 
's  cooixiinate  for  point  2 

'X  coordinate  for  point  3 
'y  coordinate  for  point  3 
's  coordinate  for  point  3 
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'line  I5B  -  hoAdxng 

Line  Input  #filenumber,  buffer 

TITLE(l)  =  Mid$(buffer,  1,  10) 

TITLE(2)  =  Mid$ {buffer,  11,  10) 

TITLEO)  =  Mid$(buffer,  21,  10) 

frmHSMInput.txtTitle2.Text  =  TITLE (1 )  +  "  ”  +  TITLE (2)  +  "  "  +  TITLE (3) 


'line  ISC  -  coordinates  to  be  plotted 

Line  Input  #filenumber,  buffer 
xmin  =  Mid$ (buffer,  1,  10) 
xmax  =  Mid$ (buffer,  11,  10) 
ymin  =  Mid$ (buffer,  21,  10) 
ymax  =  Mid$ (buffer,  31,  10) 
zmin  =  Mid$(buffer,  41,  10) 
zmax  =  Mid$ (buffer,  51,  10) 
f rmHSMInput . txtxmin  =  xmin 
f rmHSMInput . txtxmax  -  xmax 
frmHSMInput . txtymin  =  ymin 
frmHSMInput . txtymax  =  ymax 
frmHSMInput . txtzmin  =  zmin 
frmHSMInput . txtzmax  =  zmax 


'line  15D  -  sire  of  plots  ^a:ld  location  of  origin 

Line  Input  #filenumber,  buffer 
TOTALX  =  Val(Mid$ (buffer,  1,  10)) 

TOTALY  =  Val(Mid$ (buffer,  11,  10)) 

TOTALZ  =  Val(Mid$ (buffer,  21,  10)) 

XNEG  =  Val(Mid$ (buffer,  31,  10)) 

YNEG  =  Val (Mid$ (buffer,  41,  10)) 

ZNEG  =  Val (Mid$ (buffer,  51,  10)) 

ICMND  =  Val (Mid$ (buffer,  61,  5)) 

frmHSMInput .txtTotalx. Text  =  Mid$ (buffer,  1,  10) 
frmHSMInput . txtTotaly. Text  =  Mid$ (buffer,  11,  10) 
frmHSMInput . txtTotalz . Text  =  Mid$ (buffer,  21,  10) 
frmHSMInput .txtxneg. Text  =  Mid$ (buffer,  31,  10) 
frmHSMInput . txtyneg. Text  =  Mid$ (buffer,  41,  10) 
frmHSMInput . txtzneg. Text  =  Mid$ (buffer,  51,  10) 


'line  15S  -  Command  Lines 

strl  = 

For  i  -  1  To  ICMND 

Line  Input  #filenumber,  buffer 
IDN  =  Val (Mid$ (buffer,  1,  2)) 

NP  =  Val (Mid$ (buffer,  3,  2)) 

ID  =  Mid$ (buffer,  5,  4) 

strl  =  strl  +  Mid$  (buffer,  1,  2)  +  ”  "  +  Mid$  (buffer,  3,  2)  +  ”  '*  +  Mid$  (buffer,  5,  4)  +  CRLF 

Next  i 

frmHSMInput , txtCommand .Text  -  strl 


End  Sub 

Sub  ProgramControlLine  (buffer) 

'This  routine  extracts  fields  from,  the  progretm  control  line 


Dim  temp  As  Integer  'tenporary  variable 

KONTRL(l)  =  Val (Mid$ (buffer,  1,  5)) 

»»  nodes 

frm.HSMInput.optKONTRLl  (KONTRL(l)  )  .Value  =  True 
If  Mid$ (buffer,  1,  5)  =  Space$(5)  Then 
frmHSMInput .optKONTRLl (0)  =  True 
End  If 

KONTRL(2)  -  Val {Mid$ (buffer,  6,  5)) 

If  KONTRL(2)  -  0  Then 

frmHSMInput .  chlcKONTRL2  .Value  =  True 
End  If 

KONTRLO)  =  Val  (Mid$  (buffer,  11,  5)) 
frmHSMInput .optKONTRL3(KONTRL (3) ) .Value  =  True 
KONTRL(4)  =  Val (Mid$ (buffer,  16,  5)) 
frmHSMInput .txtKONTRL4  =  Mid$ (buffer,  16,  5) 
KONTRL(5)  =  Val (Mid$ (buffer,  21,  5)) 
frmHSMInput . txtKONTRL5  =  Mid$ (buffer,  21,  5) 
KONTRL(6)  =  Val (Mid$ (buffer,  26,  5)) 
frmHSMInput. txtKONTRL6  =  Mid$ (buffer,  26,  5) 
KONTRL(7)  =  Val (Mid$ (buffer,  31,  5)) 


'  global  or  local  coordinate  option  for  secondary 

'  print  option 

'  control  parameter  for  initial  body  axes 
'  niunber  of  sliding  interface  p lames 
'  heta  parameter  In  the  NewmarJe  Integration 
'  number  of  secondary  bodies  for  contact 
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'  derauZfc  nocZa  type 

f rmHSMInput. opt K0NTRL7 (k6nTRL(7) ) .Value  =  True 

KONTRL  (  8  )  =  Val  (Mid$  { buf  f er,  36,  5))  '  crxtxca.1  oar  vxscoua  dairpxng^ 

frmHSMInput.optKONTRL8 (K0NTRL{8) ) .Value  =  True 

KONTRL  (9)  =  Val  (Mid$  (buf  f er ,  41,  5))  '  type  of  xntegiretxon 

frmHSMInput.optKONTRL9(KONTRL(9) ) .Value  -  True 


KONTRL(IO)  =  Val (Mid$ (buffer,  46,  5)) 
frmHSMInput. txtKONTRLlO  =  Mid$ (buffer,  46 
KONTRL(ll)  =  Val (Mid$ (buffer,  51, '5)) 
f rmHSMInput. optKONTRLlK KONTRL (11) ) .Value 
K0NTRL(12)  =  Val (Mid$ (buffer,  56,  5)) 
frmHSMInput .optK0NTRL12 (K0NTRL(12) ) .Value 
K0NTRL(13)  =  Val (Mid$ (buffer,  61,  5)) 
K0NTRL(14)  =  Val (Mid$ (buffer,  66,  5)) 
f rmHSMInput. optKONTRLl 4 (KONTRL (14) ) .Value 
?J0NTRL(15)  =  Val  (Mid$  (buffer,  71,  5)) 
f rmHSMInput. optK0NTRL15( KONTRL (15) ) .Value 
K0NTRL(16)  =  Val (Mid$ (buffer,  76,  5)) 
frmHSMInput. optKONTRLl 6 (KONTRL (16) ) .Value 

End  Sub 


'  restart  control 

5) 

'  Q  array  outyut? 

^  True 

'  trlangrle  place  element 

^  True 

'  logxca,!  xznxt  option 
'  contact  ifith  seat  ba.ck? 

True 

'  Injury  potential  deterailned? 

True 

*  preejection  pilot  alignment  simulation? 

True 


Sub  Readinput  (filenumber,  buffer) 


'This  routine  reacZs  each  line  of  the  Input  file  that  in-rolves  input  data: 
'  Title f  parameters,  control,  material  properties,  nodes,  displacement, 

'  cross*’ sectional  geometries,  x-Jbar  and  y-^bar  vectors,  ^uld  7F  lines. 

'  Subroutines  called:  ParameterLine 
'  ProgreaaCon  trolLine 

'  Ha  terlalPrcper  tyXlne  (1-3) 

'  NodalData 

'  Elements 

'  JDljplacenient 

'  CrossSectlon 

'  Vectors 

Dim  i  As  Integer 

'  line  1  -  TITLE 

Line  Input  #filenumber,  buffer 
frmHSMInput . txtTITLE  =  buffer 
'  line  2  -  Parameter  Line 
Line  Input  #filenumber,  buffer 
ParameterLine  (buffer) 

'  line  3  -  Program  Control  Line 
Line  Input  #filenumber,  buffer 
ProgramControlLine  (buffer) 

'  line  4  -  Material  Property  lines 

frmHSMInput . tblMat Prop. Rows  =  NUMMAT 
ReDim  a ryMAT (NUMMAT,  14) 

For  i  =  1  To  NUMMAT 

Line  Input  #filenumber,  buffer 
Call  MaterialPropertyLinel (buf fer,  i) 

Line  Input  #filenumber,  buffer 
Call  MaterialPropertyLine2 (buf fer,  i) 

Line  Input  # filenumber,  buffer 
Call  MaterialPropertyLine3 (buf fer,  i) 

Next  i 

frmHSMInput . tblMat Prop . Ref resh 

'  line  5  -  Nodal  Data  Lines 

f rmHSMInput . tbl Nodal Data . Rows  =  NNODE  +  NAXOR 
ReDim  aryNOD(NNODE  +  NAXOR,  11) 

For  i  =  1  To  NNODE  +  NAXOR 

Line  Input  #filenumber,  buffer 
Cali  NodalData (buf fer,  i) 

Next  i 

frmHSMInput . tblNodalData . Refresh 

'  line  6  -  Element  Data  Lines 

frmHSMInput . tblElements . Rows  =  NELE 
ReDim  aryELE(NELE,  16) 

For  i  =  1  To  NELE 

Line  Input  #filenumber,  buffer 
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Call  Elements (buff er,  i) 

Next  i 

f rmHSMInput  *  tblElements . Refresh 

'  llna  7  -  Pr^scrxbmd  Dlsplaccmant  Lxnes 

f rmHSMInput . tblDisplace . Rows  =  NUMDIS 

ReDim  a ryDIS (NUMDIS,  11) 

For  i  =  1  To  NUMDIS 

Line  Input  #f ilenumber,  buffer 
Call  Displacement (buffer,  i) 

Next  i 

f rmHSMInput . tblDisplace . Refresh 

*  line  7B  &  7C  -  Cross- Sec tiona.1  Geometries  Code 

If  K0NTRL(9)  <>  0  Then 

Line  Input  #filenumber,  buffer 
NUMSEC  =  Val(Mid$ (buffer,  1,  5)) 

If  NUMSEC  <>  0  Then 

ReDim  a rylPT (NUMSEC) 

If  NUMSEC  <=16  Then 

Line  Input  #filenumber,  buffer 
Call  CrossSection (buffer ) 

End  If 
End  If 

End  If 

'line  7D  &  7S  -  X-Bar,  Y-Ber  Vectors 

If  KONTRLO)  =  2  Then 
ReDim  aryVEC(NPRI,  8) 

For  i  =  1  To  NPRI 

Line  Input  #filenumber,  buffer 
Call  Vectors (buffer,  i) 

Next  i 

End  If 


'line  7F 

Line  Input  #f ilenumber,  buffer 
If  Len{buffer)  >  0  Then 

NLOAD  =  Val(Mid$ (buffer,  1,  5)) 

NIC  =  Val(Mid$ (buffer,  6,  5)) 

Else 

NLOAD  =  0 
NIC  =  0 
End  If 

End  Sub 

Sub  ReadInputFile  () 

'This  routine  shows  an  open  file  dxelog  and  Allows  the  user  to  select 
'a  .inp  file. 

'  Subron tines  celled:  Re&dlnput 
'  BeedOutput 

Dim  buffer  As  String  *  80  '  buffer  for  file  reed 

Dim  f ilenumber  As  Integer  '  file  handle 

'  erase  arrays 

Erase  aryMAT 
Erase  aryNOD 
Erase  aryELE 
Erase  aryDIS 
Erase  arylPT 
Erase  aryVEC 
Erase  ar^OT 
Erase  arySTR 
Erase  aryPIC 
Erase  aryFSL 
Erase  aryNOP 
Erase  arySPN 

'display  cpen  file  dielog 

f rmHSMInput. dlgFile. Filter  =  "  (*.inp)  |  *.inp  " 

f rmHSMInput .dlgFile .Action  =  1 
If  frmHSMInput .dlgFile . Filename  <>  Then 
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Infile  =  frmHSMInput .dlgFile . Filename 

'pp«n  fllo 

filenumber  =  FreeFile 

Open  frmHSMInput .dlgFile. Filename  For  Input  Access  Read  As  #filenumber  Len  =  80 
On  Error  GoTo  ErrorHandler 

'read  Input  data 

Call  Readinput ( filenumber,  buffer) 

'read  output  data 

Call  ReadOutput ( filenumber,  buffer) 

Close  filenumber 
End  If 


Exit  Sub 


ErrorHandler : 

If  Err  =  62  Then  Exit  Sub 
Resume  Next 


End  Sub 


Sub  ReadOutput  (filen\jinber,  buffer) 


This  routine  reads  each  line  of  the  Input  file  that  involves  output 
specifics  tlon : 

Output  Control  Lines,  Motion  Output  Lines,  Stress  Output  Lines, 
Coxxplete  Output  Picture  Lines,  Deformstion  Anplificstion  Factors, 
ICIF  Data  Xlnes,  F2^U2e  Identification  lines,  ^Inal  Injury  I^mctlon 
Lines,  and  Deformation  Configuration  Plot  Lines. 

Subroutines  called:  OutputData 
HotionLines 
StressLines 
PictureLines 
Plotinfo 
ICIF 
PlanelD 
Spinalinjury 
Plotlines 


Dim  i  As  Integer 
Dim  j  As  Integer 


'counter 

'counter 


On  Error  GoTo  ErrorHandlerO 


'line  8  -  Output  Control  Line 

Line  Input  #filenumber,  buffer 
Call  OutputData (buffer) 

'line  9  -  Motion  Output  Lines 

If  NPRU  >  0  Then 

frmHSMInput . tblMotion . Rows  =  NPRU 
Re Dim  aryMOT(NPRU,  5) 

For  i  =  1  To  NPRU 

Line  Input  #filenumber,  buffer 
Call  MotionLines (buffer,  i) 
Next  i 

frmHSMInput . tblMotion . Refresh 
End  If 


'line  10  ~  Stress  Output  Lines 

If  NPRS  >  0  Then 

frmHSMInput . tblStress . Rows  =  NPRS 
ReDim  arySTR(NPRS,  7) 

For  i  =  1  To  NPRS 

Line  Input  #filenumber,  buffer 
Call  StressLines (buffer,  i) 

Next  i 

frmHSMInput . tblStress . Refresh 
Else 

frmHSMInput . tblStress . Rows  =  NPRS 
frmHSMInput . tblStress . Refresh 
End  If 

'line  11  -  Caaplete  Output  Picture  lines 

If  NPIC  >  0  Then 

frmHSMInput . tblPicLines . Rows  =  NPIC 
ReDim  aryPIC(NPIC,  2) 
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For  i  =  1  To  NPIC 

Line  Input  ^filenumtoer,  buffer 
Call  PictureLines (buf f er,  i) 

Next  i 

f rmHSMInput . tblPicLineg . Refresh 
Else 

f rmHSMInput . tblPicLines . Rows  =  NPIC 
frmHSMInput . tblPicLines . Refresh 
End  If 

'line  8A  &  SB  -  Deformation  Anplification  Factor 

If  NANG  >  0  Then 

For  i  =  1  To  NANG  +  1 

Line  Input  #filenumber,  buffer 

'Call  Plotinfo  ri>uffer,  ±) 

Next  i 
End  If 

'line  12  -  XCIF  Data  lines 

Line  Input  #filenumber,  buffer 
NPTS  =  Val (Mid$ (buffer,  1,  5)) 

If  Mid$ (buffer,  11,  10)  <>  Space(O)  Then 
FI  =  CDbl(Mid$ (buffer,  11,  10)) 

End  If 

If  Mid$ (buffer,  11,  10)  <>  Space(O)  Then 
F2  =  CDbl(Mid$ (buffer,  21,  10)) 

End  If 

frmHSMInput . txtFl  =  Mid$ (buffer,  11,  10) 
frmHSMInput . txtF2  =  Mid$ (buffer,  21,  10) 
f rmHSMInput. tblFuncSpec. Rows  =  NPTS 
ReDim  aryFSL(NPTS,  3) 

For  i  =  1  To  NPTS 

Line  Input  #filenumber,  buffer 
Call  ICIF(buffer,  i) 

Next  i 

frmHSMInput . tblFuncSpec. Refresh 

'line  13  Fl2uie  Identification  line 

ReDim  aryNOP(KONTRL( 4 )  ,  27) 

If  KONTRL(4)  <>  0  Then 

frmHSMInput . tblPlaneLines . Rows  =  KONTRL(4) 

For  i  =  1  To  KONTRL(4) 

Call  PlanelD ( filenumber,  buffer,  i) 

Next  i 

frmHSMInput . tblPlaneLines . Refresh 
Else 

frmHSMInput . tblPlaneLines . Rows  =  KONTRL(4) 
frmHSMInput . tblPlaneLines . Refresh 
End  If 

'line  14  -  Spinal  Injury  Function  Linos 

If  Not  EOF ( filenumber )  Then 

Call  Spinallnj ury( filenumber,  buffer) 

Else 

frmHSMInput.txt FACT. Text  = 
f rmHSMInput. txtNSTART. Text  = 
f rmHSMInput.txt I SYM. Text  =  ”” 
frm.HSMInput .  tblSpine .  Rows  =  0 
frmHSMInput . tblSpine . Refresh 
End  If 

'line  15  -  Deformation  Configuration  Plot  lines 

If  Not  EOF ( filenumber )  Then 

Call  PlotLines ( filenumber,  buffer) 

Else 

frmHSMInput.txtPLTDCD.Text  =  "" 
f rmHSMInput. txtPLTLAB. Text  = 
f rmHSMInput. txtIOPTPLT. Text  =  "" 
frmHSMInput .  txtTitle2  .Text  = 
frmHSMInput . txtxmin . Text  =  "" 
frmHSMInput . txtxmax . Text  =  "" 
frmHSMInput . txtymin. Text  = 
frmHSMInput . txtymax. Text  =  ”” 
frmHSMInput . txtzmin. Text  =  "" 
frmHSMInput . txtzmax. Text  = 
frmHSMInput . txtTotalx . Text  = 
frmHSMInput . txtTotaly. Text  = 
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frmHSMInput. txtTotalz.Text  =  "" 
f  rmHSMInput .  txtxneg .  Text  = 
frmHSMInput . txtyneg. Text  =  "" 
frmHSMInput .txtzneg. Text  = 
frmHSMInput . txtCommand . Text  =  "" 

End  If 

Close  #filenumber 
Exit  Sub 

ErrorHandlerO: 

If  Err  =  62  Then  Exit  Sub 
Resume  Next 

End  Sub 

Sub  Spinalinjury  (fileniomber,  buffer) 

'This  routine  rosdjs  spln&l  injury  linos  and  extracts  the  field  values 

Dim  i  As  Integer  'counter 

Dim  j  As  Integer  'cotznter 

Dim  k  As  Integer  'counter 

'line  14A 

Line  Input  #filenumber,  buffer 

JSTART  Val  (Mid$  (buffer,  1,  10)}  '  bottommost  vertebral  level 

JEND  =  Val (Mid$ (buffer,  11,  10))  '  uppermost  vertebral  level 

NB  =  JEND  -  JSTART 
frmHSMInput , tblSpine . Rows  =  NB 
ReDim  arySPN(NB,  4) 

For  i  =  1  To  NB 

arySPNd,  1)  =  Str$(  (JSTART  -  1)  +  i) 

Next  i 

'line  14B  -  Axial  Coa^ression 

j  =  0 
k  =  0 

Do  While  k  <  NB 

Line  Input  #filenumber,  buffer 
For  i  =  1  To  16 

arySPN(i  +  j,  2)  =  Mid$ (buffer,  (i  *  5)  -  4,  5) 
k  =  i  +  j 

If  k  =  NB  Then  Exit  For 
Next  i 
j  =  k 
Loop 

'line  14C  -  Lateral  Bending  Moment 

j  =  0 
k  =  0 

Do  While  k  <  NB 

Line  Input  #filenumber,  buffer 
For  i  =  1  To  16 

arySPN{i  +  j,  3)  =  Mid$(buffer,  (1-^5)  -  4,  5) 
k  =  i  +  j 

If  k  =  NB  Then  Exit  For 
Next  i 
j  -  k 
Loop 

'line  14D  -  Anterior-posterior  Bencilng-  Moment 

j  =  0 
k  -  0 

Do  While  k  <  NB 

Line  Input  #filenumber,  buffer 
For  i  =  1  To  16 

arySPNd  +  j,  4)  =  Mid$(buffer,  (i  *  5)  -  4,  5) 
k  =  i  +  j 

If  k  =  NB  Then  Exit  For 
Next  i 
j  =  k 
Loop 

'line  14E  -  Exponential  factor  and  symmetry 
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Line  Input  #f ilenumber,  buffer 
frmHSMInput .txt FACT. Text  =  Mid$ {buffer,  1,  10) 
frmHSMInput .txtNSTART.Text  =  Mid$ (buffer,  11,  5} 
frmHSMInput. txtISYM. Text  =  Mid$ (buffer,  16,  5) 

End  Sub 

Sub  StressLines  (buffer,  i) 


'This  routine  er tracts  fields  from  a  stress  output  line 


arySTRd, 

1)  =  Mid$ (buffer. 

1, 

5) 

*  element  number 

arySTRd, 

2)  =  Mid$ (buffer. 

6, 

1) 

'  11 

arySTRd, 

3 )  =  Mid$ (buffer. 

7, 

1} 

'  12 

arySTR( i. 

4 )  =  Mid$ (buffer. 

8, 

1) 

*  13 

arySTRd, 

5)  =  Mid$ (buffer, 

9, 

1) 

'  M 

arySTRd, 

6)  =  Mid${buffer, 

10, 

1) 

'  N 

arySTR(i, 

7 )  =  Mid$ (buffer. 

21, 

40) 

'  label 

End  Sub 

Sub  Vectors  (buffer,  i) 

'This  routine  extracts  fields  from  the  X-Bar  and  y-Bar  Vector  lines 

aryVEC(i,  1)  =  Mid$ (buffer,  1,  5)  '  node  number 

aryVEC(i,  2)  =  Mid$ (buffer,  5,  5)  '  apace 

aryVEC(i,  3)  =  Mid$ (buffer,  11,  10)  '  EULCO(l^l) 

aryVEC(i,  4)  =  Mid$ (buffer,  21,  10)  '  mJLCO(2,l) 

aryVECd,  5)  =  Mid$  (buffer,  31,  10)  '  EULCO(3,l) 

aryVEC(i,  6)  =  Mid$ (buffer,  41,  10)  '  EULCO(l,2) 

aryVECd,  7)  =  Mid$  (buffer,  51,  10)  '  mJLCO(2,2) 

aryVECd,  8)  =  Mid$  (buffer,  61,  10)  '  EULCO(3,2) 

End  Sub 
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C:\HSMINPUT\OUTPUT.BAS  11/3Q/95  11:33:12  AM 


Option  Explicit 


Function  ControlOut  (buffer)  As  String 

'This  function  sets  the  control  lino  imffor  based 
'on  the  iralues  on  the  Input  a  croon. 

Dim  i  As  Integer  'counter 

Dim  temp  As  Integer  'tenporary  varleibXe 

'  g^lobol  or  local  coordinate  option  for  secondary  nodes 

If  frmHSMInput.optKONTRLl (0) .Value  =  True  Then 
Mid$ {buffer,  1,  5)  =  ”  0" 

Else 

Mid$ (buffer,  1,  5)  =  ”  1" 

End  If 

'  print  option 

If  frmHSMInput. chkK0NTRL2. Value  =  True  Then 
Mid$ (buffer,  6,  5)  =  "  0" 

Else 

Mid$ (buffer,  6,  5)  =  "  1” 

End  If 

'  control  pareuneter  for  initial  body  axes 

For  i  =  0  To  2 

If  frmHSMInput . optKONTRL3 ( i ) .Value  =  True  Then 
Mid$(buffer,  11,  5)  =  "  "  &  Str$(i) 

End  If 
Next  i 

'  number  of  sliding  interface  planes 

Mid$ (buffer,  16,  5)  =  FormatNum(Val ( frmHSMInput . txtKONTRL4 . Text ) ,  5) 

'  beta  pareuneter  in  the  J^omaark  integration 

Mid$ (buffer,  21,  5)  =  FormatNum(Val ( frmHSMInput . txtKONTRLS . Text ) ,  5) 

'  number  of  secondary  bodies  for  contact 

Mid$ (buffer,  26,  5)  =  FormatNum(Val ( frmHSMInput . txtK0NTRL6 . Text ) ,  5) 

'  def  aul t  node  typo 

If  frmHSMInput. optKONTRL? (0) .Value  =  True  Then 
Mid$ (buffer,  31,  5)  =  "  0” 

Else 

Mid$ (buffer,  31,  5)  =  "  1" 

End  If 

'  critical  or  viscous  daaping 

If  frmHSMInput . optKONTRLS ( 0) .Value  =  True  Then 
Mid$ (buffer,  36,  5)  =  "  0" 

Else 

Mid$ (buffer,  36,  5)  =  "  1" 

End  If 

'  type  of  integration 

If  frmHSMInput . optKONTRL9 { 0) .Value  =  True  Then 
Mid$ (buffer,  41,  5)  =  ”  0" 

Else 

Mid$ (buffer,  41,  5)  =  "  1" 

End  If 

'  restart  control 

Mid$(buffer,  46,  5)  =  Format$ ( frmHSMInput . txtKONTRLlO . Text ,  ”#####") 

'  Q  array  output? 

For  i  =  0  To  2 

If  frmHSMInput . optKONTRLll ( i ) .Value  =  True  Then 
Mid$ (buffer,  51,  5)  =  "  ”  &  Str$(i) 

End  If 
Next  i 

'  triamgle  place  element 

If  frmHSMInput.optKONTRL12 (0) .Value  =  True  Then 
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Mid$ (buffer,  56,  5)  =  "  0" 

Else 

Mid$ (buffer,  56,  5)  -  "  1" 

End  If 

'  logical  milt  option 

Mid$ (buffer,  61,  5)  =  ”  1" 

'  contact  irlth  aaat  JbacJi:? 

If  frmHSMInput.optKONTRL14 (0) .Value  =  True  Then 
Mid$ (buffer,  66,  5)  =  "  0” 

Else 

Mid$ (buffer,  66,  5}  =  "  1" 

End  If 

'  injury  potantial  datarminad? 

If  frmHSMInput .optKONTRL15 ( 0) .Value  =  True  Then 
Mid$ (buffer,  71,  5)  =  "  0” 

Else 

Mid$(buffer,  71,  5)  =  ”  1” 

End  If 

'  praajactlon  pilot  alignment  simulation? 

If  frmHSMInput.optKONTRL16(0) .Value  =  True  Then 
Mid$ (buffer,  76,  5)  -  "  0" 

Else 

Mid$ (buffer,  76,  5)  =  "  1” 

End  If 

ControlOut  =  buffer 

End  Function 

Sub  CrossOut  (filenumber,  buffer) 

'This  routlna  inzllds  tha  Jbuffar  ^u3d  mrltas  cross  sactlonal  gaomatirlas 
'llnas  to  tha  Iziput  flla. 

Dim  i  As  Integer  'countar 

Mid$ (buffer,  1,  5)  =  FormatNum(NUMSEC,  5) 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

If  NUMSEC  <>  0  Then 
If  NUMSEC  <16  Then 
For  i  =  1  To  NUMSEC 

Mid$(buffer,  ( i  -  1 )  *  5  +  1 ,  5 )  =  arylPTd) 

Next  i 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

End  If 
End  If 

End  Sub 

Sub  DisplaceOut  (filenumber,  buffer) 

'This  routlna  builds  tha  buf£sr  ^u3d  irrltas  displacement 
'lines  to  tha  input  file. 

Dim  i  As  Integer  'countar 

For  i  =  1  To  NUMDIS 


Mid$ (buffer. 

1, 

4)  =  aryDIS(i, 

1) 

'  node  number 

Mid$ (buffer, 

5, 

1)  =  aryDIS(i, 

2) 

'  tr£U2slatlonal 

X 

Mid$ (buffer. 

6, 

1)  =  aryDIS(i, 

3) 

'  tremslatlonal 

y 

Mid$ (buffer. 

7, 

1)  =  aryDIS(i, 

4) 

'  translational 

z 

Mid$ (buffer. 

8r 

1)  =  aryDISd, 

5) 

'  rotation  x 

Mid$ (buffer, 

9, 

1)  =  aryDIS(i, 

6) 

'  rotation  y 

Mid$ (buffer. 

o 

1 — i 

1)  =  aryDIS(i 

,  7) 

'  rotation  z 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

Next  i 

End  Sub 
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Sub  ElementOut  (filenumber ,  buffer) 


'This  routine  builds  the  buffsr  ^uld  irrltes  eleaient 
'lines  to  the  Input  fils. 

Dim  i  As  Integer  'counter 

For  i  =  1  To  NELE 

Mid$(buffer,  1^  5)  =  aryELE(i,  1) 

Micl$  (buffer,  6,  5)  =  aryELE(i,  2) 

Mid$ (buffer,  11,  5)  =  aryELE(i,  3) 

Mid$ (buffer,  16,  5}  =  aryELE(i,  4) 

Mid$ (buffer,  21,  5)  =  aryELE(i,  5) 

Mid$ (buffer,  26,  5)  =  aryELE(i,  6) 

Mid$ (buffer,  31,  5)  =  aryELE{i,  7) 

Mid$ (buffer,  36,  5)  =  aryELE(i,  8) 

Mid$  (buffer,  41,  5)  =  aryELEd,  9) 

Mid$  (buffer,  46,  5)  =  aryELEd,  10) 

Mid$(buffer,  51,  5)  =  aryELE(i,  11) 

Mid$ (buffer,  56,  5)  =  aryELE(i,  12) 

Mid$ (buffer,  61,  5)  -  aryELE(i,  13) 

Mid$ (buffer,  66,  5)  =  aryELE(i,  14) 

Mid$  (buffer,  71,  5)  =  aryELEd,  l5) 

Mid$(buffer,  76,  5)  =  aryELEd,  16) 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

Next  i 

End  Sub 

Sub  ICIFOut  (filenumber,  buffer) 

'This  routine  builds  the  buffer  emd  writes  ICTF 
*  lines  to  the  Input  file. 

Dim  i  As  Integer  'counter 

Mid$ (buffer,  1,  5)  =  FormatNum ( NPTS,  5) 

Mid$(buffer,  6,  5)  =  Space(5) 

Mid$ (buffer,  11,  10)  =  frmHSMInput . txt FI . Text 
Mid$ (buffer,  21,  10)  =  frmHSMInput . txt F2 . Text 
Print  #filenumber,  buffer 
buffer  =  Space(80) 

For  i  =  1  To  NPTS 

Mid$ (buffer,  1,  10)  =  aryFSL(i,  1)  '  Time  t 

Mid$  (buffer,  11,  10)  =  aryFSLd,  2)  '  motion -rfunctlon  value  at  time  t 

Mid$  (buffer,  21,  10)  =  aryFSL{i,  3)  '  derivative  of  function  at  time  t 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

Next  i 

End  Sub 

Sub  MaterialOut  (fileniimber ,  buffer) 

'This  routine  builds  the  buffer  and  writes  inaterlal  properties 
'lines  to  the  Input  file. 

Dim  i  As  Integer  'counter 

'  line  4  -  Material  Property  lines 

For  i  =  1  To  NUMMAT 

Mid$(buffer,  1,  5)  =  aryMATd,  1)  '  MTYP 

Mid$(buffer,  6,  5)  =  aryMATd,  2)  '  LTYP 

Print  #f ilenumber,  buffer 
buffer  =  Space(80) 

Mid$  (buffer,  1,  10)  =  ar^WTd,  3)  ' 

Mid$  (buffer,  11,  10)  =  aryMATd,  4)  '  E(2,MTYP) 

Mid$  (buffer,  21,  10)  =  aryMATd,  5)  '  EO^MT^) 

Mid$(buffer,  31,  10)  =  aryMATd,  6)  '  E(4,MTXP) 

Mid$(buffer,  41,  10)  =  aryMATH,  7)  '  E(5,MTYP) 

Mid$  (buffer,  51,  10)  =  aryMATd,  8) 


'  node  nu2&ber 
'  Node  I 
'  Node  J 

'  primary  node  for  I 
'  primary  node  for  J 
'  not  used 
'  not  used 
'  not  used 
'  Node  K 
'  material  type 
'  element  type 
'  not  used 

'  niuBber  of  sliding  node  pairs 
'  not  used 
'  not  used 
'  level 
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'  E(6,HrYP) 

Print  #filenumber,  buffer 
buffer  =  Space(80} 

Mid$  {buffer,  1,  10)  =  ar>WiT(i,  9)  '  E(7,MrYP) 

Micl$  (buffer,  11,  10)  =  aryMAT(i,  10)  '  E(a,lfrYB) 

Mid$ (buffer,  21,  10)  =  aryMAT(i,  11)  '  E(9,MrYP) 

Mid${buffer,  31,  10)  =  aryMAT(i,  12)  '  E(10,MT^) 

Mid$ (buffer,  41,  10)  =  aryMAT(i,  13)  '  E(11,MTYP) 

Mid$(buffer,  51,  10)  =  aryMAT(i,  14)  '  E(12,hrrYP) 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

Next  i 

End  Sub 

Sub  MotionOut  (filenxjmber,  buffer) 

'This  routine  builds  the  buffer  and  writes  motion 

*  lines  to  the  Input  file. 

Dim  i  As  Integer 

If  NPRU  >  0  Then 

For  i  =  1  To  NPRU 

Mid$  (buffer,  1,  7)  =  aryMOT(i,  1)  *  node  nvxnber 

Mid$  (buffer,  8,  1)  —  aryMOT(i,  2)  '  cosponent  nuiaber  of  blnexoatlc  variable  to  be  output 

Mid$ (buffer,  9,  1)  =  aryM0T(i,  3)  '  displacement/  velocity/  or  acceleration  (0/1,2) 

Mid$  (buffer,  10,  1)  =  ar^0T(i,  4)  '  plot  control  (0-4) 

Mid$ (buffer,  21,  40)  =  aryMOT(i,  5)  '  label 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

Next  i 
End  If 

End  Sub 

Sub  NodeOut  (filenumber ,  buffer) 

'This  routine  builds  the  buffer  and  writes  node 

*  lines  to  the  Input  file. 

Dim  i  As  Integer  'coimter 

For  i  =  1  To  NNODE  +  NAXOR 

Mid$ (buffer,  1,  5)  =  aryNOD(i,  1)  '  node  number 

Mid$ (buffer,  6,  1)  =  aryN0D(i,  2)  '  coordinate  type 

Mid$(buffer,  7,  1)  =  aryN0D(i,  3)  '  generation  level 

Mid$ (buffer,  10,  1)  =  aryNOD(i,  4)  '  Secondary/Primary 

Mid$ (buffer,  11,  10)  =  aryNOD(i,  5)  '  jc  coordinate 

Mid$ (buffer,  21,  10)  =  aryNOD{i,  6)  ^  y  coordinate 

Mid$ (buffer,  31,  10)  =  aryNOD(i,  7)  '  «  coordinate 

Mid$ (buffer,  41,  10)  =  aryN0D(i,  8)  '  TMASS(l) 

Mid$ (buffer,  51,  10)  =  aryN0D(i,  9)  '  TMASS(2) 

Mid$ (buffer,  61,  10)  =  aryNOD(i,  10}  '  TMASS(3) 

Mid$ (buffer,  71,  10)  =  aryN0D(i,  11}  '  TMASS(4) 

Print  #filenumber,  buffer  ^ 

buffer  =  Space(80) 

Next  i 

End  Sub 

Function  OutputOut  (buffer)  As  String 

'This  routine  builds  the  buffer  and  writes  the  output 
^ line  to  the  Input  file. 

'  frequency  of  output 

Mid$ (buffer,  1,  5)  =  f rmHSMInput . txtNPFREQ 

'  number  of  motion  output  lines 

Mid$ (buffer,  6,  5)  =  f rmHSMInput . txtNPRU 

'  number  of  stress  output  lines 

Mid$ (buffer,  11,  5)  =  f rmHSMInput . txtNPRS 
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*  number  o£  coaiplete  output  .pictures 

Mid$ (buffer,  16,  5)  =  frmHSMInput . txtNPIC 

'  used  ffhen  EIUPLT  Is  desired  In  output 

Mid$ (buffer,  21,  5)  =  frmHSMInput . txtNANG 

'  primary  nodm  for  printer  plots 

Mid$ (buffer,  26,  5)  =  frmHSMInput . txtNDREF 
OutputOut  =  buffer 

End  Function 


Function  ParameterOut  (buffer)  As  String 

'This  iroutlne  builds  the  buffer  and  irrltes  the  parameter 
[line  to  the  Input  file. 

*  number  of  nodes  in  the  model 
Mid$ (buffer,  1,  5)  =  frmHSMInput . txtNNODE 
r  number  of  primary  nodes  In  the  model 
Mid$ (buffer,  6,  5}  =  frmHSMInput . txtNPRI 

'  number  of  ^ocis  orientation  modes  in  the  model 
Mid$ (buffer,  11,  5)  =  frmHSMInput . txtNAXOR 
'  number  of  elements  in  the  model 
Mid$ (buffer,  16,  5)  =  frmHSMInput . txtNELE 

'  number  of  different  element  section  end  material  types 
Mid$ (buffer,  21,  5)  -  frmHSMInput . txtNUMMAT 

'  number  of  nodes  at  which  emy  di^lecement  conponents  are  specified 
Mid$ (buffer,  26,  5)  =  frmHSMInput . txtNUMDIS 
'  number  of  time  steps  to  be  taJren 
Mid$ (buffer,  31,  6)  =  frmHSMInput . txtMXSTEP 
'  ntzmbar  of  degrees  of  freedom  per  node 
Mid$ (buffer,  37,  4)  =  frmHSMInput . txtNDGREE 
'  time  Increment 

Mid$ (buffer,  41,  10)  =  frmHSMInput . txtDELT 
'  largest  node  number  In  model 

Mid$ (buffer,  51,  5)  =  frmHSMInput . txtNODMAX 
ParameterOut  =  buffer 

End  Function 

Sub  PictureOut  (filenumber,  buffer) 

'This  routine  builds  the  buffer  and  writes  picture 
*  lines  to  the  input  file. 

Dim  i  As  Integer  'counter 

If  NPIC  >  0  Then 

For  i  =  1  To  NPIC 

Mid$  (buffer,  1,  10)  =  aryPIC(i,  1)  '  time  st^  at  which  congplete  output  picture  Is  desired 

Mid$ (buffer,  11,  10)  =  aryPIC(i,  2)  '  KON  (0-6) 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

Next  i 
End  If 

End  Sub 


Sub  PlaneOut  (filenumber,  buffer) 

'This  routine  builds  the  buffer  and  writes  plane  Identification 
'lines  to  the  Input  file. 

Dim  i  As  Integer  'counter 

Dim  j  As  Integer  'counter 


For  i  =  1  To  KONTRL(4) 

'  line  13  -  Pl^me  Identification  Line 

Mid${buffer,  1,  5)  =  aryN0P(i,  1) 
Mid$ (buffer,  6,  5)  =  aryNOP(i,  2) 

»»  contact  plane  1 

Mid$ (buffer,  11,  10)  =  aryNOP(i,  3) 
»»  to  the  global  r-eucls 

Mid$(buffer,  21,  10)  =  aryNOP(i,  4) 


'  primary  node  number  designating  the  plzuae 
'  total  ntunber  of  primary  nodes  of  the  model  which  may 

'  direction  cosine  of  acceleration  vector  with  respect 
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'  dxrBctxon  coarxne  of  acceleration  vector  with  respmct 
»»  to  the  srlobal  y-ax±a 

Mid$ (buffer,  31,  10)  =  aryN0P(i, 

»»  to  the  global  z~ax±3 

Mid$ (buff er,  41,  10)  =  aryN0P(i, 

Mid$ (buffer,  51,  10)  =  aryN0P(i, 

Mid$ (buffer,  61,  10)  =  aryN0P(i, 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

'  line  13A  -  Contacting  Primary  Nodm  Wtanbera  Line 
If  VaKaryNOPd,  2))  >  0  Then 
For  j  =  1  To  Val(aryNOP(i,  2)) 

Mid${buffer,  ( j  -  1 )  *  5  +  1,  5 )  =  aryN0P(i,  8  +  j) 

Next  j 
Else 

Mid$ (buffer,  1,  5)  =  aryN0P(i,  9) 

Mid$ (buffer,  6,  5)  =  aryN0P(i,  10) 

End  If 

Print  #filenumber,  buffer 
buffer  =  Space (80) 

Mid$(buffer,  1,  10)  =  aryN0P(i,  19) 

Mid$ (buffer,  11,  10)  =  aryN0P(i,  20) 

Mid$ (buffer,  21,  10)  =  aryN0P(i,  21) 

Print  #filenumber,  buffer 
buffer  -  Space(80) 

Mid$(buffer,  1,  10)  -  aryN0P(i,  22) 

Mid$(buffer,  11,  10)  =  aryN0P(i,  23) 

Mid$(buffer,  21,  10)  =  aryN0P(i,  24) 

Print  #filenumber,  buffer 
buffer  =  Space (80) 

Mid$(buffer,  1,  10)  =  aryN0P(i,  25) 

Mid$ (buffer,  11,  10)  =  aryN0P(i,  26) 

Mid$(buffer,  21,  10)  =  aryNOP(i,  27) 

Print  #filenumber,  buffer 
buffer  =  SpaGe(80) 

If  K0NTRL(14)  =  1  Then 

'Line  Input  ^filanumbmrf  buff  or 
End  If 
Next  i 

End  Sub 

Sub  PlotOut  (filenumber,  buffer) 

'This  routine  builda  the  buffar  and  writes  plot 
'lines  to  the  input  file. 

Dim  i  As  Integer  'counter 

If  NANG  >  0  Then 

For  i  =  1  To  NANG  +  1 
'  Jbuild  inzffer 
Print  #filenumber,  buffer 
buffer  =  Space (80) 

Next  i 
End  If 

End  Sub 

Sub  SaveInputFile  () 

'This  routine  displays  a  file  selection  dialog  emd  saves  the  input  file 
'  Subroutinas  called;  FTriteJz^ut 
'  Kri  teOu  tpu  t 

Dim  buffer  As  String  *  80  '  record  buffer 

Dim  filenumber  As  Integer  '  file  handle 

frmHSMInput .dlgFile . Filter  =  "  (*.inp)  t  *.inp  ” 
frmHSMInput .dlgFile .Action  =  2 
If  frmHSMInput .dlgFile . Filename  <>  Then 
filenumber  =  FreeFile 

Open  frmHSMInput .dlgFile. Filename  For  Output  Access  Write  As  #filenumber  Len  =  80 
Call  WriteInput { filenumber,  buffer) 


'  direction  cosine  of  acceleration  vector  with  respect 

6)  '  linear  stiffness  of  elastic  plane  X 

7 )  '  cubic  stiffness  of  elastic  plane  I 

8 )  '  fraction  of  viscous  damping  for  plane  I 
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Call  WriteOutput ( f ilenumber,  buffer) 

End  If 

Close  #filenumber 
Exit  Sub 

End  Sub 

Sub  StressOut  (filenumber ,  buffer) 

'This  routine  hullds  the  hn£fex  and  writes  stress 
'lines  to  the  Input  file. 

Dim  i  As  Integer  'counter 


If  NPRS  >  0  Then 

For  i  =  1  To  NPRS 

Mid$ (buffer,  1,  5) 
Mid$ (buffer,  6,  1) 
Mid$ (buffer,  7,  1) 
Mid$ (buffer,  8,  1) 
Mid$(buffer,  9,  1) 
Mid$ (buffer,  10,  1) 


=  arySTR(i, 

“  arySTR{i, 

=  arySTR(i, 

=  arySTRd, 

=  arySTR(i, 

=  arySTR(i, 


Mid$  (buffer,  21,  40)  =  arySTRd, 
Print  #filenumber,  buffer 
buffer  =  Space (80) 

Next  i 
End  If 


1 )  '  elezaent  nuznber 

2)  'II 

3)  '12 

4)  '13 

5)  '  M 

6)  '  N 

7 )  '  label 


End  Sub 

Sub  VectorOut  (filenumber,  buffer) 

'This  routine  builds  the  buffer  and  writes  vector 
*  lines  to  the  Izxput  file. 


Dim  i  As  Integer 
For  i  =  1  To  NPRI 


'counter 


Mid$  1 

(buffer. 

1,  5)  = 

aryVECd,  1) 

'  node  number 

Mid$  1 

[buffer. 

5,  5)  = 

aryVECd,  2) 

'  jpace 

Mid$  1 

(buffer. 

11,  10) 

=  aryVECd, 

3) 

'  EULCO(l,l) 

Mid$ (buffer. 

21,  10) 

=  aryVECd, 

4) 

'  EULCO(2,l) 

Mid$ (buffer. 

31,  10) 

~  aryVECd, 

5) 

'  EULCO(3,l) 

Mid$ (buffer. 

41,  10) 

=  aryVECd, 

6) 

'  EULCO(l,2) 

Mid$  1 

[buffer. 

51,  10) 

=  aryVECd, 

7) 

'  EULCO(2,2) 

Mid$  1 

[buffer. 

61,  10) 

=  aryVECd, 

8) 

'  EULCO(3,2) 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

Next  i 

End  Sub 

Sub  Writeinput  (filenumber,  buffer) 


This  routine  calls  routines  which  write  the  Input  data  to  the 
Input  file. 

Subroutines  called:  ParaxneterOut 
ControlOut 
MaterlalOut 
NddeOut 
ElementOat 
X>l^laceOut 
CrossOut 
VectorOut 


Dim  i  As  Integer 


'counter 


'  line  1  -  TITLE 

buffer  =  frmHSMInput.txtTITLE 
Print  #filenumber,  buffer 
buffer  =  Space(80) 

'  line  2  -  Faramenter  line 
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buffer  =  ParameterOut (buf f er ) 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

'  line  3  -  Program  Control  Lino 
buffer  =  ControlOut (buf fer ) 

Print  #fiienumber,  buffer 
buffer  =  Space (80) 

'  line  4  -  Material  Property  lines 

Call  MaterialOut ( f ilenumber,  buffer) 

'  line  5  -  Nodal  Data  Linos 

Call  NodeOut ( filenumber,  buffer) 

'  line  6  -  Element  Data  lines 

Call  ElementOut ( f ilenumber,  buffer) 

'  line  7  -  Prescribed  Dl^lacemant  lines 

Call  DisplaceOut ( filenumber,  buffer) 

'line  7B  &  7C  -  Cross-Sectional  Ceozne tries  Code 

If  KONTRL(9)  <>  0  Then 

Call  CrossOut ( f ilenumber,  buffer) 

End  If 

'line  7D  &  7E  -  X-Bar,  Y-Bar  Vectors 

If  KONTRLO)  ^  2  Then 

Call  VectorOut ( f ilenumber,  buffer) 

End  If 

'line  7F 

If  NLOAD  <>  0  Then 

Mid$ (buffer,  1,  5)  =  FormatNum (NLOAD,  5) 

Mid$ (buffer,  6,  5)  =  FormatNum ( NIC,  5) 

Print  #filenumber,  buffer 
Else 

Print  #filenumber. 

End  If 

End  Sub 

Sub  WriteOutput  (filenxoinber,  buffer) 

'This  routine  calls  routines  irhlch  write  the  output  ^eclflcatlons  to  the 
'Input  Hie. 

'  Subroutines  called;  MbtlonOut 
'  StressOut 

'  PlctureOut 

'  PlotOut 

'  ICIFOut 

'  PlaneOut 

'  CrosaOut 

'  VectorOut 

'line  8  -  Output  Control  Lino 

buffer  =  OutputOut (buf f er ) 

Print  #filenumber,  buffer 
buffer  =  Space(80) 

'line  9  -  Motion  Output  lines 

Call  MotionOut ( f ilenumber,  buffer) 

'line  10  -  Stress  Output  lines 

Call  StressOut ( filenumber,  buffer) 

'line  II  -  Coaplete  Output  Picture  lines 

Call  PictureOut ( filenumber,  buffer) 

'line  SA  £  SB  -  De^bmatlon  AnpllHcatlon  Factor 

Call  PlotOut ( filenumber,  buffer) 

'line  12  -  ICIP  Data  Linos 

Call  ICIFOut ( filenumber,  buffer) 

'line  13  -  Plano  Identification  line 

If  K0NTRL(4)  <>  0  Then 

Call  PlaneOut ( filenumber,  buffer) 

End  If 
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'line  14  -  Spxmtl  Injuxy  Fanctlon  Lxnms 
*I£  Not  EOF (fllonunibor)  Than 
'  Call  Sp±mtlInjury(f±lonuihbor,  buff  or) 
*El30 

'  frmHSMIi^ut.txtFACT^Toxt  =  "" 

'  frmHSMIi^ut .  txtNSTART .  Toxt  =  "" 

'  fraHSHXx^t.txtlS’iOi.Toxt  *  "" 

'  f2:mHSMlBput.thl^±no.Rows  =  0 

*  frmHSMIzxptu  t .  tbl^lno .  Ra fresh 

'End  If 


'line  15  -  Doformstion  Configuration  Plot  Linos 
*If  Not  EOF (fllonvanbor)  Tbon 
'  Call  Plo t Linos (fllonumborf  buffer) 


'Elaa 

'  frmHSMInput. 
'  frmHSMJnpu t . 
'  frmHSMInpu  t . 
'  frmHSMInpu t . 
'  frmHSMInput . 
'  frmHSMInput . 
'  frmHSMInpu  t . 
'  frmHSMInpu t , 
'  frmHSMInput. 
'  frmHSMInput. 
•  frmHSMInput. 
'  frJDHSMInput . 
'  frmHSMXnput. 
'  froHSMIiiput. 
'  frmHSMInput. 
'  fniKSMInput. 
'  frmHSMInput. 
'End  laf 


tJftPXTDCD.  Taxt  =  ‘ 
txtPLTLAB.Toxt  «  ' 
txtlOPTPXr.Taxt  = 
txtTl  tlo2 .  Text  = 
txtxmxn.Toxt  =  "" 
txtxmax.Toxt  -  "" 
txfcymin.Taxt  "" 
txtymsx.Toxt  =  "" 
fcxfczmin.rexfc  =  "" 
txtzmsLX.Toxt  -  "" 
txfcTotalx.  Taxt  = 
txtTotoly.Toxt  = 
txfcTotalz. Taxt  = 
txtxnog.Toxt  =  "" 
tjctynagr.  Tajffc  =  "" 
txtxnog.Toxt  =  "" 
tx’tCbiimi2md.  Text;  — 


rf  K 
ffff 


rr  rr 
ff  rr 

It  It 


Exit  Sub 


End  Sub 
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C:\HSMINPUT\PLOT.BAS  11/30/95  11:33:22  AM 


Option  Explicit 

Global  Plotval  (  )  As  Double  'ajraray  of  plot  data 

Global  ttitles()  As  String  'array  of  plot  titles 


Function  ConvD  (strl) 

*  function  to  convert  a  string  to  a  double  precision  number 
'  (hemdles  exponentiel  notation) 

Dim  n  As  Integer  'position  in  string- 

Dim  expon  As  Integer  'exponent  portion  of  string 
Dim  frac  As  Double  'fractionaZ  portion  of  string 

Dim  num  As  Double  'raluo  to  rotuim 

n  =  InStrd,  strl,  ”D”) 

If  n  <>  0  Then 

expon  =  Val (Mid$ (strl,  n  +  1,  3)) 
frac  =  Val (Mid$ ( strl,  1,  n  -  1)) 
num  =  frac  *  10  ^  expon 
Else 

num  =  Val ( strl ) 

End  If 
ConvD  =  num 

End  Function 

Sub  PlotData  (NPRU,  numpts) 

'create  data  plots  using  Chart  FX 
'  NPRU  number  of  plots 
'  nuspts  =  number  of  data  points 

Dim  i  As  Integer  'counter 

Dim  j  As  Integer  'counter 

Dim  tempmin  As  Double  'teaporary  v-ariable  for  imocimum  data  point 

Dim  tempmax  As  Double  'tesporary  variable  for  minimum  data  point 

For  j  =  1  To  NPRU 

tempmin  =  Plotval (1,  j  +  1) 
tempmax  =  Plotval (1,  j  +  1) 

'cpen  communication  ch2uinel  to  pass  data 

frmPlot . Chart!. 0penData(C0D_V7^LUES)  =  CH7U^T_ML(1,  100) 

'settg:>  ^ures  and  titles 
frmPlot . Chartl .ThisSerie  =  0 
frmPlot.Chartl.SerLeg(O)  =  "Time” 
f rmPlot. Chartl. LegStyle  =  CL_HIDEXLEG 
frmPlot . Chartl . FixedGap  =  2 

f rmPlot. Chartl. Title (CHART_TOPTIT)  =ttitles(j) 

For  i  =  1  To  numpts 

'pass  data  values 

frmPlot. Chartl. Valued  -  1 )  =  Plotval  (i,  j  +  1) 

If  Plotval (i,  j  +  1)  >  tempmax  Then  tempmax  =  Plotval (i,  j  +  1) 
If  Plotval (i,  j  +  1)  <  tempmin  Then  tempmin  =  Plotval (i,  j  +  1) 
Next  i 

'seti^  axes  mini  mums  and  auiximums 

frmPlot. Chartl, Adm(CSA_MIN)  =  tempmin 
frmPlot .Chartl .Adm(CSA_MAX)  =  tempmax 
frmPlot . Chartl .Adm(CSA_XMAX)  =  numpts 
frmPlot .Chartl .CloseData (COD_VALUES)  =  0 

'set  command  button  caption 

If  j  <  NPRU  Then 

frmPlot , cmdClose .Caption  =  "Next” 

Else 

frmPlot . cmdClose . Caption  =  "Close" 

End  If 

frmPlot. Show  1 
Next  j 

End  Sub 
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Sub  ReadData  (filenumber,  buffer) 


'read  output  £iZa  and  a  tore  array  values  for  plottlncf 
'  fxlenumber  -  file  handle 
'  iniffiar  —  Jbuffer  for  file  record. 

'  arubzroutxnaa  called ;  PlotData 


Dim  accum  As  Double 
Dim  i  As  Integer 
Dim  j  As  Integer 
Dim  k  As  Integer 
Dim  stepcount  As  Long 
Dim  numpts  As  Integer 
Dim  MXSTEP  As  Integer 
Dim  NPFREQ  As  Integer 
Dim  ICMND  As  Integer 


'txjna  cotmtar 

'cotmtar 

'counter 

'counter 

'a tap  counter 

'number  of  data  points 

'hmuct mum  nxunber  of  steps 

'output  frequency 

'command  line 


'  read  title 

Line  Input  #filenumber,  buffer 

'  read  lenqth  of  Q  array 

Line  Input  #filenumber,  buffer 

'  read  parasasters 

Line  Input  #filenumber,  buffer  'number  of  nodea 
NNODE  =  Val (Mid$ (buffer,  43,  10)) 

Line  Input  #filenumber,  buffer  'number  of  primary  nodes 
NPRI  =  Val(Mid$ (buffer,  43,  10)) 

Line  Input  #filenumber,  buffer  'number  of  axis  orientation  nodea 

NAXOR  =  Val{Mid$ (buffer,  43,  10)) 

Line  Input  #filenumber,  buffer  'number  of  elements 
NELE  =  Val (Mid$ (buffer,  43,  10)) 

Line  Input  #filenumber,  buffer  'number  of  materials 
NUMMAT  =  Val (Mid$ (buffer,  43,  10)) 

Line  Input  #filenumber,  buffer  'number  of  fixed  nodes 
NUMDIS  =  Val (Mid$ (buffer,  43,  10)) 


Line 

Input 

#filenumber, 

buffer 

'number  of  Increments 

MXSTEP  = 

=  Val (Mid$ (buffer,  43, 

10)  ) 

Line 

Input 

#filenumber. 

buffer 

'degreea  of  freedom 

Line 

Input 

#f ilenumber. 

buffer 

'time  Increment 

DELT  =  ConvD(Mid$ (buffer,  43, 

16)  ) 

Line 

Input 

#filenumber. 

buffer 

'maxlxoma  n***<fe  number 

Line 

Input 

#filenumber. 

buffer 

'2  blank  lines 

Line 

Input 

#f ilenumber. 

buffer 

'  read  controls 

Line 

Input 

#f ilenumber. 

buffer 

'KONTRL  (1) 

Line 

Input 

#f ilenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#filenumber, 

buffer 

•KOVTRL  (2) 

Line 

Input 

#fil€number. 

buffer 

Line 

Input 

#f ilenumber. 

buffer 

'KONTRL  (3) 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#f ilenumber, 

buffer 

Line 

Input 

#f ilenumber. 

buffer 

Line 

Input 

#f ilenumber. 

buffer 

'KONTRl  (4) 

K0NTRL(4)  =  Val(Mid$ 

(buffer. 

12,  5)  ) 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#f ilenumber. 

buffer 

'KOITTRL  (5) 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

'KOirrRL(6) 

Line 

Input 

#filenumber, 

buffer 

Line 

Input 

#filenumber. 

buffer 

•K01<rrRL(7) 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

'KOITTRL  (8) 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#  f ilenumber. 

buffer 

'KORTRL  (9) 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

'KDNTRX  (10) 

Line 

Input 

#f ilenumber. 

buffer 

'KORTRL(ll) 
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Line 

Input 

#f ilenumber. 

buffer 

Line 

Input 

#filenumber, 

buffer 

'KOWTRl  (12) 

Line 

Input 

#f ilenumber, 

buffer 

Line 

Input 

f^f  ilenumber. 

buffer 

•KONTRL  (13) 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#f ilenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

*KONTRL(14) 

KONTRL(14)  =  Val(Mid$ (buffer. 

13,  5)) 

Line 

Input 

#filenumber. 

buffer 

Line 

Input 

#f ilenumber. 

buffer 

Line 

Input 

#filenumber. 

buffer 

'KDOTRX  (15) 

K0NTRL(15)  =  Val(Mid$ (buffer, 

13,  5)) 

Line 

Input 

#f ilenumber. 

buffer 

Line 

Input 

#f ilenumber , 

buffer 

Line 

Input 

#f ilenumber. 

buffer 

'KONTRX  (16) 

Line 

Input 

#f ilenumber. 

buffer 

'read  mafcerxala  (3  lines  each; 

For  i  =  1  To  NUMMAT 

Line  Input  #filenumber,  buffer 
Line  Input  #filenumber,  buffer 
Line  Input  #filenumber,  buffer 
Next  i 


'read  sodal  dafca 

Line  Input  #f ilenumber,  buffer  'J  blzmk  lines 
Line  Input  #filenumber,  buffer 
Line  Input  #f ilenumber,  buffer 

Line  Input  #filenumber,  buffer  •nodsl  data  header 
Line  Input  #f ilenumber,  buffer 
For  i  =  1  To  NNODE  +  NAXOR 

Line  Input  # f ilenumber,  buffer 
Next  i 

'read  elements 

Line  Input  #filenumber,  buffer  line 

Line  Input  #filenumber,  buffer  ^element  bender 
For  i  =  1  To  NELE 

Line  Input  #f ilenumber,  buffer 
Next  i 


'read  nodal  data  in  different  coordinntes 

Line  Input  #filenumber,  buffer  *3  JblemJt  lines 

Line  Input  #filenumber,  buffer 

Line  Input  #filenumber,  buffer 

Line  Input  #filenumber,  buffer  ^nodnl  bender 

Line  Input  #filenumber,  buffer 

For  i  =  1  To  NNODE 

Line  Input  #f ilenumber,  buffer 
Next  i 

*rend  dti^lncersBnt  nodes 

Line  Input  #filenumber,  buffer  'displacement  node  header 

Line  Input  #filenumber,  buffer 

For  i  =  1  To  NUMDIS 

Line  Input  #filenumber,  buffer 
Next  i 

'read  primnry  node  mnss  array 

Line  Input  #filenumber,  buffer  *blauak  line 

Line  Input  #filenumber,  buffer  'header 

Line  Input  #filenumber,  buffer  'hlanJt  line 

For  i  =  1  To  NPRI 

Line  Input  #filenumber,  buffer 
Next  i 


'read  total  lengrth  ot  Q  array  after  ASSBLE 

Line  Input  #filenumber,  buffer 


'read  output  code 

Line  Input  #filenumber,  buffer 
Line  Input  #filenumber,  buffer 
Line  Input  #f ilenumber,  buffer 
Line  Input  # f ilenumber,  buffer 
NPFREQ  =  Val{Mid$ (buffer,  18, 
Line  Input  ffilenumber,  buffer 


'2  hlanJc  lines 

'output  header 
'NPFRSro 
10)  ) 

'NPRir 
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NPRU  -  Val(Mid$ {buffer,  18,  10)) 

Line  Input  #filenumber,  buffer  'NPRS 
NPRS  =  Val(Mid$ {buffer,  18,  10)) 

Line  Input  # f ilenumber,  buffer  'NPIC 
NPIC  =  Val(Mid$ {buffer,  18,  10)) 

Line  Input  #filenumber,  buffer  ^NANG 

Line  Input  ^filenumber,  buffer  f^PSEC 

'read  noditl  d±sp,  vol,  accel  output 

ReDim  ttitles (NPRU ) 

Line  Input  #filenumber,  buffer  'header 
For  i  =  1  To  NPRU 

Line  Input  #filenumber,  buffer 
ttitles{i)  =  Mid${buffer,  37,  40) 

Next  i 

'read  selective  element  stress  array  output 

If  'NPRS  >  0  Then 

Line  Input  # filenumber ,  buffer  ^header 
For  i  =  1  To  NPRS 

Line  Input  #f ilenumber,  buffer 
Next  i 
End  If 

'read  pactura  output 

If  NPIC  >  0  Then 

ReDim  NPOUT{NPIC) 

Line  Input  #filenumber,  buffer  'header 

Line  Input  #filenumber,  buffer 
For  i  =  1  To  NPIC 

Line  Input  #filenumber,  buffer  *2  blank  lines 

Line  Input  #filenumber,  buffer 

Line  Input  #filenumber,  buffer 

NPOUT(i)  =  CLng (Mid$ (buffer ,  11,  7)) 

Next  i 
End  If 

'read  total  leng^th  o£  Q  array 

Line  Input  #filenumber,  buffer  'blank  line 

Line  Input  #filenumber,  buffer 

'read  leng'th  o£  strs  array 

Line  Input  # filenumber,  buffer  'JblanJr  line 

Line  Input  ^filenumber,  buffer 

'read  numerical  integration  data 

Line  Input  #filenumber,  buffer  '4  blank  lines 

Line  Input  #filenumber,  buffer 

Line  Input  #filenumber,  buffer 

Line  Input  #filenumber,  buffer 

Line  Input  #filenumber,  buffer  'header 

Line  Input  #filenumber,  buffer 

Line  Input  #filenumber,  buffer  'no.  of  points 
NPTS  =  Val (Mid$ (buffer,  25,  5)) 

Line  Input  #filenumber,  buffer  'initial  velocity 

Line  Input  #filenumber,  buffer  'initial  disp 

Line  Input  #filenumber,  buffer  'header 

Line  Input  #filenumber,  buffer 

For  i  =  1  To  NPTS 

Line  Input  #filenumber,  buffer 
Line  Input  #filenumber,  buffer  'JblanJ:  line 

Next  i 

'read  plane  information 

If  KONTRL{4)  <>  0  Then 
For  i  =  1  To  KONTRL(4) 

Line  Input  # filenumber.,  buffer  'blazik  line 

Line  Input  # filenumber,  buffer  'plane  line 

Line  Input  # filenumber,  buffer  'direction  cosines 

Line  Input  #filenumber,  buffer  'line  2 

Line  Input  # filenumber,  buffer  'seat  back 

Line  Input  # filenumber,  buffer  'aaaociated  apace  nodes 

Line  Input  #filenumber,  buffer  'node  numbers 

Line  Input  #filenumber,  buffer  'x,  y,  z  header 

Line  Input  #filenumber,  buffer  'xl 

Line  Input  #filenumber,  buffer 
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•x2 

Line  Input  #f ilenumber,  buffer  •xS 

Line  Input  #f ilenumber,  buffer  'header 

Line  Input  #filenumber,  buffer  'nodes 

Next  i 
End  If 

' read  nodes 

If  K0NTRL(15)  O  0  Then 

Line  Input  #f ilenumber,  buffer  •JSTART  and  JE2W 

JSTART  =  Val(Mid$ (buffer,  1,  10)) 

JEND  -  Val (Mid$ (buffer,  11,  10)) 

NB  =  JEND  -  JSTART 

Line  Input  #f ilenumber,  buffer  ^SPINIF  DATA  header 

Line  Input  #filenumber,  buffer  'Fact,  Netart 

Line  Input  #filenumb€r,  buffer  'level  header 

Line  Input  #filenumber,  buffer  'JblanJt 

For  i  =  1  To  NB 

Line  Input  #filenumber,  buffer 
Next  i 
End  If 

'read  original  element  lengths 

Line  Input  #filenumber,  buffer 

Line  Input  #filenumber,  buffer  'header 

Line  Input  #filenumber,  buffer 

For  i  =  1  To  NELE 

Line  Input  #filenumber,  buffer 
Next  i 

If  NPIC  >  0  Then 

Line  Input  #filenumber,  buffer  'title 
Line  Input  #filenumber,  buffer  'mins  and  mars 
Line  Input  #filenumber,  buffer  'totals 
ICMND  =  Val (Mid$ (buffer,  62,  5)) 

For  i  =  1  To  ICMND 

Line  Input  #filenumber,  buffer 
Next  i 
End  If 

'read  output  data 

numpts  =  Int(MXSTEP  /  NPFREQ) 

ReDim  Plotval (numpts ,  NPRU  +  1) 
accum  =  0 
j  =  0 

For  stepcount  ==  1  To  MXSTEP 
accum  =  accum  +  DELT 
If  NPIC  >  0  Then 

For  k  =  1  To  NPIC 

If  stepcount  =  NPOUT(k)  Then 

Line  Input  #f ilenumber,  buffer  'punched  cards 
Line  Input  #filenumber,  buffer  'blank  lino 

Line  Input  #filenumber,  buffer  'title 

Line  Input  ffilenumber,  buffer  'mins 

Line  Input  #filenumber,  buffer  'totals 

For  i  =  1  To  ICMND 

Line  Input  #filenumber,  buffer 
Next  i 

For  i  =  1  To  NB  +  1 

Line  Input  #filenumber,  buffer  'plot  lines 
Next  i 

Line  Input  #filenumber,  buffer  'GO  line 

End  If 
Next  k 
End  If 

If  (stepcount  Mod  NPFREQ)  =  0  Then 
j  =  j  +  1 

If  K0NTRL(4)  <>  0  Then 

Line  Input  #f ilenumber,  buffer 
End  If 

Line  Input  #filenumber,  buffer 
If  K0NTRL(2)  -  0  Then 
Plotval(j,  1)  =  accum 
If  NPRU  <=  6  Then 

Line  Input  #filenumber,  buffer 
For  k  =  1  To  NPRU 
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Plotval ( j  t 
Next  k 
End  If 
End  If 
End  If 

Next  stepcount 


k  + 


1)  =  ConvD {Mid$ ( buffer ,  26  +  (k  -  1) 


'coajslex  output  file  foxiaat  not  addressed  at  this  time 


'Line  Input  #filenu2nber^  Jbuffer 
'Line  Input  #filenufflber^  buffer 
'Line  Xxzput  #filenujiiber,  buffer 
'Line  Input  #filenuxnber,  buffer 
'Line  Input  #filenuaber,  buffer 
'Line  Ixiput  #filenu2nber,  buffer 
'Line  Input  #filenuniber,  buffer 
'Line  Input  #filenuaiber,  buffer 
'Line  Iz^ut  #filenuinber,  buffer 
'Line  Input  #filenuiiiber,  buffer 
'Line  Input  #filenufflber^  buffer 
'Line  Input  #filenuaiber,  buffer 
'Line  Input  #filenuinber,  buffer 
'Line  Input  #filenuaiber,  buff  or 
'For  i  =  1  To  KB 

'  Line  Iiiput  #filenuinber,  buffer 
'Kext  i 


'apinal  Injury  likelihood 
'mzoc  coapressire  forces 
'bl£uib  line 
'P 

*bl^mk  line 
*bmy 

•blank  line 
•bmz 

•blank  line 

•  tpftn^ftmz 
•blank  line 
•py,bwyY,bmzy 

•  level 
'blanJc  line 


•call  plotting  subroutine 

Call  PlotData (NPRU,  numpts ) 
Close  #filenumber 


End  Sub 

Sub  ReadOutFile  () 

'subroutine  to  read  output  file 
'standard  output  filename  is  "hsm.out" 

'  subroutines  called:  BeadData 

Dim  buffer  As  String  *  80  'buffer  for  file  record 

Dim  filenumber  As  Integer  •file  handle 

Outfile  =  App.Path  &  ”\hsm.out" 
filenumber  =  FreeFile 

'open  file 

Open  Outfile  For  Input  Access  Read  As  ^filenumber  Len  =  80 

On  Error  GoTo  ErrorHandler2 

Call  ReadData ( filenumber,  buffer) 

Close  #filenumber 
Exit  Sub 

ErrorHandler2 : 

If  Err  ^  62  Then  Exit  Sub 
Resume  Next 

End  Sub 


*  16,  16) ) 
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Appendix  C 


Inventory  of  Files 


Archived  HSM  Files  Presented  at  Kickoff 


total  5504 

drwxr-xr-x  2  mike  user 
drwxrwxrwx  1 7  root  sys 
-rw-r-r—  1  jmartini  user 
-rw-rw-r—  1  jmartini  user 
-rw-r-r-  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r-r—  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r-r-  1  Jmartini  user 
-rw-rw-r—  1  Jmartini  user 
-rw-r-r-  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r-r-  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r-r—  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r— r-  1  Jmartini  user 
-rw-rw-r—  I  Jmartini  user 
-rw-r— r-  1  Jmartini  user 
-rw-rw-r—  1  Jmartini  user 
-rw-r-r-  1  Jmartini  user 
-rw-rw-r—  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r—  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-rw-r—  1  mike  user 
-rw-rw-r-  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r-r-  I  mike  user 
-rw-r— r-  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r—  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r—  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r—  1  Jmartini  user 
-rw-r-r-  1  Jmartini  user 
-rw-rw-r-  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 
-rw-rw-r—  1  Jmartini  user 
-rw-r— r—  1  Jmartini  user 


5632  Aug  16  14:20  ./ 

2560  Jul21  21:46  ../ 

6685  Oct  7  1993ALPHAP.f 
24244  Oct  7  1993  ALPHAP.o 
7251  Oct  7  1993  ASSBLE.f 
18680  Oct  7  1993  ASSBLE.o 
62  Oct  7  1993  AXIS.f 
684  Oct  7  1993  AXIS.o 
3333  Oct  7  1993  BASME.f 
8792  Oct  7  1993  BASME.o 
8337  Oct  7  1993  BFRCIN.f 
24372  Oct  7  1993  BFRCIN.o 
54  Oct  7  1993  CARCON.f 
596  Oct  7  1993  CARCON.O 
706  Oct  7  1993  CROSS.f 
2104  Oct  7  1993  CROSS.O 
478  Oct  7  1993  DECOD.f 
1488  Oct  7  1993  DECOD.o 
2309  Oct  7  1993EIGEN.f 
8048  Oct  7  1993  EIGEN.o 
64  Oct  7  1993  ELMPLT.f 
688  Oct  7  1993  ELMPLT.o 
4381  Oct  7  1993  ELOUT.f 
13080  Oct  7  1993  ELOUT.o 
2970  Oct  7  1993  FRCIN.f 
8184  Oct  7  1993  FRCIN.o 
1962  Aug  3  08:00  FREEFD.2 
1952  Oct  7  1993  FREEFD.f 
4588  Oct  7  1993  FREEFD.o 
2876  Aug  3  08:00  FREEFD.old 
86  Oct  7  1993  GENFOR.f 
840  Oct  7  1993  GENFOR.O 
1536  Oct  7  1993  GMPRD.f 
2068  Oct  7  1993  GMPRD.o 
1516  Oct  7  1993  GTPRD.f 
2028  Oct  7  1993  GTPRD.O 
955  Oct  7  1993  ICIF.f 
4544  Oct  7  1993  ICIF.o 
1616  Oct  7  1993  ICIF2.f 
5452  Oct  7  1993  ICIF2.0 
340  Oct  7  1993  INCODE.f 
1052  Oct  7  1993  INCODE.0 
58  Oct  7  1993  LINE.f 
656  Oct  7  1993  LINE.o 
7527  Oct  7  1993  LOCFRC.f 
19664  Oct  7  1993  LOCFRC.O 
62  Oct  7  1993  LOFIX.f 
600  Oct  7  1993  LOFIX.o 
11325  Oct  7  1993  0UTPUT.f 
36696  Oct  7  1993  OUTPUT.o 
56  Oct  7  1993  PEGS.f 
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-rw-rw-r— 

-rw-r-r— 

-rw-rw-r— 

-rw-r-r- 

-rw-rw-r— 

-rw-r~r-- 

-rw-rw-r-- 

-rw-r—r— 

-rw-rw-r— 

-rw-r-r- 

-rw-rw-r— 

-rw-r— r— 

-rw-rw-r- 

-rw-r— r— 

-rw-rw-r- 

-rw-r-r- 

-rw-rw-r— 

-rw-r-r- 

-rw-rw-r— 

-rw-r— r— 

-rw-rw-r— 

-rw-r-r- 

-rw-rw-r- 

-rw-r-r- 

-rw-rw-r- 

-rw-r-r- 

-rw-rw-r— 

-rw-r-r- 

-rw-rw-r- 

-rw-r— r— 

-rw-rw-r— 

-rw-r-r- 

-rw-rw-r— 

-rw-r— r— 

-rw-rw-r- 

-rw-r-r- 

-rw-rw-r— 

-rw-r-r- 

-rw-rw-r- 

-rw-r— r— 

-rw-rw-r- 

-rw-r-r— 

-rw-rw-r— 

-rw-r-r— 

-rw-rw-r— 

-rw-r-r- 

-rw-rw-r— 

-rw-r-r- 

-rw-rw-r— 

-rw-r— r— 

-rw-rw-r— 

-rw-r— r— 

-rw-rw-r— 

-rw-r-r- 


1  jmartini  user 
1  jmartmi  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartmi  user 
1  jmartini  user 
1  jmartini  user 
I  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartmi  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 
1  jmartini  user 


640  Oct  7  1993  PEGS.o 

53  Oct  7  1993  PLOT.f 
612  Oct  7  1993  PLOT.o 

8161  Oct  7  1993  PLOTER.f 
13156  Oct  7  1993  PL0TER.0 

54  Oct  7  1993  PLOTS.f 
612  Oct  7  1993  PLOTS.O 
88  Oct  7  1993  PVFRCN.f 
856  Oct  7  1993  PVFRCN.o 
72  Oct  7  1993  READFD.f 
744  Oct  7  1993  READFD.o 

10852  Oct  7  1993  READIN.f 
31860  Oct  7  1993  READIN.O 
3924  Oct  7  1993  READOU.f 
13936  Oct  7  1993  READOU.o 
64  Oct  7  1993  READXS.f 
688  Oct  7  1993  READXS.o 
47  Oct  7  1993  RELINE.f 
564  Oct  7  1993  RELINE.o 
51  Oct  7  1993  RESTAR.f 
580  Oct  7  1993  RESTAR.O 
847  Oct  7  1993  ROTATE.f 
2292  Oct  7  1993  ROTATE.o 
2002  Oct  7  1993  ROTE.f 
6516  Oct  7  1993  ROTE.O 

55  Oct  7  1993  SCALE.f 
628  Oct  7  1993  SCALE.O 
86  Oct  7  1993  SECACC.f 
840  Oct  7  1993  SECACC.o 

6136  Oct  7  1993  SFRCIN.f 
16452  Oct  7  1993  SFRCIN.o 
6265  Oct  7  1993  SLIDER.f 
20092  Oct  7  1993  SLIDER.0 
10317  Oct  7  1993  SOLVE.f 
30808  Oct  7  1993  SOLVE.o 
13333  Oct  7  1993  SPINIF.f 
36340  Oct  7  1993  SPINIF.o 
60  Oct  7  1993  SYMBOL.f 
660  Oct  7  1993  SYMBOL.o 
77  Oct  7  1993  TASME.f 
784  Oct  7  1993  TASME.o 
94  Oct  7  1993  TFRCIN.f 
896  Oct  7  1993  TFRCIN.o 
67  Oct  7  1993  UASME.f 
712  Oct  7  1993  UASME.o 
70  Oct  7  1993  UFRCIN.f 
728  Oct  7  1993  UFRCIN.o 
6846  Oct  7  1993  UPDATE.f 
10672  Oct  7  1993  UPDATE.o 
492  Oct  7  1993  VECT.f 
1748  Oct  7  1993  VECT.o 
1371  Oct  7  1993  VECTOR.f 
3576  Oct  7  1993  VECT0R.0 
15929  Oct  7  1993  WHAM3.f 
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-rw-rw-r— 

1  jmartini  user 

-rw-r— r— 

1  mike  user 

-rw-r— r- 

1  mike  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r- 

1  Jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r- 

1  root  sys 

-rw-r— r-- 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r- 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r- 

1  jmartini  user 

-rw-r-r- 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r- 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r- 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r- 

1  jmartini  user 

-rw-r-r— 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rw-rw-r— 

1  jmartini  user 

-rwxrwxr-x 

1  jmartini  user 

34744  Oct  7  1993  WHAM3.0 
30804  Aug  3  08:00  cr24b.inp 
997025  Aug  3  07:59  cr24b.out 
1467  Oct  7  1993  damp. 

1467  Oct  7  1993  damp.new 
60804  Oct  7  1993  damp.out 
0  Aug  16  14:20  dirhsm 
1357  Oct  7  1993  dumyhsm.f 
13896  Oct  7  1993  fort.7 
5150  Oct  7  1993  hb3flx.out 
1467  Oct  7  1993  hidamp. 
60804  Oct  7  1993  hidamp.out 
1467  Oct  7  1993  histif. 

60804  Oct  7  1993  histif.out 
1467  Oct  7  1993  hyb2.inp 
60804  Oct  7  1993  hyb2.out 
1467  Oct  7  1993  hyb22.inp 
60804  Oct  7  1993  hyb22.out 
1798  Oct  7  1993  hyb3fdext.f 
1794  Oct  7  1993  hyb3fdflx.f 
1151  Oct  7  1993  hyblll.flex 
24085  Oct  7  1993  hyblllflx.out 
544  Jul  7  21:42  info 
1467  Oct  7  1993  lostif. 

60804  Oct  7  1993  lostif  out 
600  Oct  7  1993makehsm 
1467  Oct  7  1993  shear. 

60804  Oct  7  1993  shear.out 
44644  Oct  7  1993  shear2.out 
574404  Oct  7  1993  xhsm* 
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Archived  Files  in  Directory  HSM  001 


total  106657 

drwxr-xr-x 

2  105 

user 

4096  Aug  16  14:18./ 

drwxrwxrwx  17  root  sys 

2560  Jul21  21:46../ 

-rw-rw-r— 

1  105 

user 

53784  May  22  1986  ABEPLOT.FTN 

-rw-rw-r- 

1  105 

user 

124335  Aug  7  1986ACES.FTN 

-rw-rw-r- 

1  105 

user 

60183  Sep  5  1986ACES.INP 

-rw-rw-r— 

1  105 

user 

1163790  Sep  6  1986ACES.OUT 

-rw-rw-r- 

1  105 

user 

60183  Aug  8  1986  ACESO.INP 

-rw-nv-r— 

1  105 

user 

1163790  Aug  8  1986  ACESO.OUT 

-rw-rw-r-- 

1  105 

user 

60183  Aug  7  1986  ACES l.INP 

-rw-rw-r- 

1  105 

user 

1 140474  Jun  22  1986  ACESl.OUT 

-rw-rw-r— 

1  105 

user 

1 163790  Aug  12  1986  ACES2.0UT 

-rw-rw-r— 

1  105 

user 

63423  Aug  22  1986  ACES2A.INP 

-rw-rw-r— 

1  105 

user 

1439428  Aug  22  1986  ACES2A.OUT 

-rw-rw-r- 

1  105 

user 

63423  Aug  22  1986  ACES2B.INP 

-rw-rw-r-- 

1  105 

user 

1439428  Aug  29  1986  ACES2B.OUT 

-rw-rw-r- 

1  105 

user 

1 1 63790  Aug  1 3  1 986  ACES3  .OUT 

-rw-rw-r— 

1  105 

user 

63423  Aug  22  1986  ACES3A.INP 

-rw-rw-r— 

1  105 

user 

1439428  Aug  25  1986  ACES3A.OUT 

-rw-rw-r- 

1  105 

user 

63423  Aug  22  1986  ACES3B.1NP 

-rw-rw-r— 

1  105 

user 

1439428  Sep  2  1986  ACES3B.OUT 

-rw-rw-r- 

1  105 

user 

60183  Aug  22  1986  ACES4.INP 

-rw-rw-r- 

1  105 

user 

1 163790  Aug  13  1986  ACES4.0UT 

-rw-rw-r— 

1  105 

user 

63423  Aug  22  1986  ACES4A.INP 

-rw-rw-r— 

1  105 

user 

1439428  Aug  25  1986  ACES4A.OUT 

-rw-rw-r- 

1  105 

user 

63423  Aug  22  1986  ACES4B.INP 

-rw-rw-r- 

1  105 

user 

1439428  Sep  4  1986  ACES4B.OUT 

-rw-rw-r— 

1  105 

user 

60183  Aug  22  1986  ACES5.INP 

-rw-rw-r— 

1  105 

user 

1 163790  Aug  15  1986  ACES5.0UT 

-rw-rw-r- 

1  105 

user 

77760  Aug  19  1986  ACESA.FTN 

-rw-rw-r— 

1  105 

user 

162243  Apr  21  1986  ACESFD.FTN 

-rw-rw-r— 

1  105 

user 

20331  Jul  28  1986  ALPHAP.FTN 

-rw-rw-r- 

1  105 

user 

648  Aug  10  1987  BATCH. JEF 

-rw-rw-r— 

1  105 

user 

243  Aug  6  1987  BATCH. JJS 

-rw-rw-r— 

1  105 

user 

68931  May  17  1985  BOTJEFFD.FTN 

-rw-rw-r- 

1  105 

user 

1 193940  Jul  24  1986  BUTT.OUT 

-rw-rw-r- 

1  105 

user 

50625  Oct  6  1986  CACESFD.FTN 

-rw-rw-r— 

1  105 

user 

233766  Aug  11  1986  CBEAM.FTN 

-rw-rw-r— 

1  105 

user 

17739  Jan  9  1987  CHECK.FTN 

-rw-rw-r- 

1  105 

user 

49977  May  16  1985C1LS.INP 

-rw-rw-r- 

1  105 

user 

87237  May  17  1985  CILSFD.FTN 

-rw-rw-r— 

1  105 

user 

89667  Sep  18  1986  CMODHARN.FTN 

-rw-rw-r— 

1  105 

user 

567  Aug  6  1987  COMBINE.CSS 

-rw-rw-r— 

1  105 

user 

16686  Sep  8  1986  COMBINE.FTN 

-rw-rw-r— 

1  105 

user 

6834  Aug  6  1987COMB1NE.OUT 

-rw-rw-r- 

1  105 

user 

4966 1 1  Dec  3 1  1986  COMBO.FTN 

-rw-rw-r— 

1  105 

user 

53460  Oct  6  1986  COMBOFD.FTN 

-rw-rw-r— 

1  105 

user 

17658  Jan  12  1987  COMILS.FTN 

-rw-rw-r— 

1  105 

user 

243  Oct  15  1986COMP.CSS 

-rw-rw-r— 

1  105 

user 

2673  Apr  22  1986  DRIACES.INP 

-rw-rw-r— 

1  105 

user 

3483  Aug  7  1984DRIVROD.FTN 

-rw-rw-r- 

1  105 

user 

3402  Jun  6  1985  EIGEN.FTN 
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-rw-rw-r-- 

1  105 

user 

11514Junl3  1987  F7CETRAP.CSS 

-rw-rw-r— 

1  105 

user 

162  Oct  6  1986FAST.CSS 

-rw-rw-r- 

1  105 

user 

11097  Feb  28  1986  FDSSMCS.FTN 

-rw-rw-r- 

1  105 

user 

75978  May  23  1986  FHHENC.FTN 

-rw-rw-r— 

1  105 

user 

4293  Feb  27  1986  FIVEDOF.INP 

-rw-rw-r— 

1  105 

user 

3564  Apr  22  1986  FREEFDAC.FTO 

-rw-rw-r-- 

1  105 

user 

5832  Feb  27  1986  FREEFDDO.FTN 

-rw-rw-r— 

1  105 

user 

15471  Jan  8  1987FU.FTN 

-rw-rw-r— 

1  105 

user 

729Jull6  1986  GETIT.FTN 

-rw-rw-r- 

1  105 

user 

76545  Jun  25  1986H7.FTN 

-rw-rw-r— 

1  105 

user 

59292  Jul  2  1986  H7.INP 

-rw-rw-r- 

1  105 

user 

1016390  Sep  6  1986  H7.0UT 

-rw-rw-r— 

1  105 

user 

122958  Sep  5  1986  H7A.FTN 

-rw-rw-r- 

1  105 

user 

124011  Sep  10  1986  HACESFD.FTN 

-rw-rw-r- 

1  105 

user 

39771  Feb  27  1986  HCS685.FTN 

-rw-rw-r— 

1  105 

user 

508113  May  16  1986  HCSCODE.FTN 

-rw-rw-r- 

1  105 

user 

59292  Aug  6  1987  HCSILS.INP 

-rw-rw-r- 

1  105 

user 

1254776  Aug  10  1987  HCSILS.OUT 

-rw-rw-r- 

1  105 

user 

12150  Aug  10  1987  HCSILS.PUN 

-rw-rw-r— 

1  105 

user 

91773  Jun  18  1986  HCSILSFD.FTN 

-rw-rw-r— 

1  105 

user 

96309  Aug  4  1987  HCSM.INP 

-rw-rw-r- 

1  105 

user 

2420442  Aug  6  1987  HCSM.OUT 

-rw-rw-r— 

1  105 

user 

2187  Aug  7  1987HCSM.PUN 

-rw-rw-r— 

1  105 

user 

474984  Jun  24  1985  HCSMAR.FTN 

-rw-rw-r— 

1  105 

user 

472797  Jun  27  1985  HCSMARJ.FTN 

-rw-rw-r— 

1  105 

user 

472878  Feb  14  1986  HCSMARM.FTN 

-rw-rw-r— 

1  105 

user 

472878  Jan  28  1986  HCSMARJ.FTN 

-rw-rw-r— 

1  105 

user 

473445  May  20  1985  HCSMDLT.FTN 

-rw-rw-r— 

1  105 

user 

473931  Jun  1 1  1985  HCSMDTT.FTN 

-rw-rw-r— 

1  105 

user 

127656  Oct  1  1986  HCSMFD.FTN 

-rw-rw-r— 

1  105 

user 

548462  Aug  5  1987  HCSMFD.LST 

-rw-rw-r- 

1  105 

user 

465426  May  22  1985  HCSMRS2.FTN 

-rw-rw-r— 

1  105 

user 

465669  Jul  26  1985  HCSMRS3.FTN 

-rw-rw-r— 

1  105 

user 

479682  Apr  25  1985  HCSMRST.FTN 

-rw-rw-r— 

1  105 

user 

124416  Aug  7  1986  HHENC.FTN 

-rw-rw-r- 

1  105 

user 

60021  Aug  7  1986  HHENC.INP 

-rw-rw-r— 

1  105 

user 

1153874  Aug  8  1986  HHENC.OUT 

-rw-rw-r— 

1  105 

user 

60021  Aug  7  1986HHENC1.1NP 

-rw-rw-r— 

1  105 

user 

1153874  Jul  25  1986  HHENC LOUT 

-rw-rw-r— 

1  105 

user 

124173  Jul  24  1986  HHENC2.FTN 

-rw-rw-r— 

1  105 

user 

60507  Jul  24  1986  HHENC2.rNP 

-rw-rw-r- 

1  105 

user 

1200506  Jul  24  1986  HHENC2.0UT 

-rw-rw-r— 

1  105 

user 

49410  Aug  6  1987HILS.INP 

-rw-rw-r— 

1  105 

user 

73953  May  14  1985  HILSFD.FTN 

-rw-rw-r— 

1  105 

user 

20331  Apr  5  1985  HSALPHAP.FTN 

-rw-rw-r— 

1  105 

user 

378351  Apr  24  1987HSM.FTN 

-rw-rw-r— 

1  105 

user 

11988  Dec  5  1984  HSSSM.FTN 

-rw-rw-r- 

1  105 

user 

496611  Aug  4  1987HTSM.FTN 

-rw-rw-r— 

1  105 

user 

151065  Aug  4  1987HTSM.INP 

-rw-rw-r— 

1  105 

user 

77193  Aug  4  1987  HTSMFD.FTN 

-rw-rw-r- 

1  105 

user 

306860  Aug  10  1987  HTSMFD.LST 

-rw-rw-r- 

1  105 

user 

91287  Aug  4  1987  ILSFD.FTN 

-rw-rw-r— 

1  105 

user 

123280  Aug  10  1987  ILSFD.LST 

-rw-rw-r- 

1  105 

user 

59697  Jul  27  1987  ILSFRC.INP 
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-rw-rw-r-- 

1  105 

user 

60183  May  14  1987  ILSRET.INP 

-rw-rw-r— 

1  105 

user 

741824  May  15  1987  ILSRET.OUT 

-rw-rw-r- 

1  105 

user 

14256  May  15  1987  ILSRET.PUN 

-rw-rw-r- 

1  105 

user 

2592  Oct  22  1985  ITERATE.FTN 

-rw-rw-r— 

1  105 

user 

138510  Jan  21  1987J.rNP 

-rw-rw-r— 

1  105 

user 

567490  Jan  12  1987J.OUT 

-rw-rw-r- 

1  105 

user 

60183  Aug  22  1986  JACES.INP 

-rw-rw-r- 

1  105 

user 

1203990  Sep  8  1986  JACES.OUT 

-rw-rw-r— 

1  105 

user 

124497  Jul  29  1986JEF.FTN 

-nv-rw-r~ 

1  105 

user 

30132  May  17  1985  JEFFFD.FTN 

-rw-rw-r— 

1  105 

user 

1223 1  May  22  1985  JSHCSSSM.INP 

-rw-rw-r— 

1  105 

user 

74277  May  16  1985  JSILSFD.FTN 

-rw-rw-r— 

1  105 

user 

12717  Jul  25  1986JSSM.INP 

-rw-rw-r— 

1  105 

user 

648  Oct  17  1986LIG.FTN 

-rw-rw-r- 

1  105 

user 

63 18  Nov  30  1987  LINKHCS.CSS 

-rw-rw-r— 

1  105 

user 

20979  Jul  6  1984LOCFRC.FTN 

-rw-rw-r- 

1  105 

user 

140940  Jan  9  1987  LONGB.INP 

-rw-rw-r- 

1  105 

user 

OJan  9  1987  LONGB.OUT 

-rw-rw-r— 

1  105 

user 

2268  Aug  21  1985  MULTIPLY.FTN 

-rw-rw-r~ 

1  105 

user 

536  Jan  8  1987  MULTIPLY.OUT 

-rw-rw-r- 

1  105 

user 

46332  Apr  29  1985  NECKSSM.FTN 

-rw-rw-r— 

1  105 

user 

76626  May  24  1985  NKACBOT.FTN 

-rw-rw-r- 

1  105 

user 

1701  Feb  28  1986  ONEDOF.INP 

-rw-rw-r— 

1  105 

user 

8 10  Oct  15  1986  PLOTLIG.FTN 

-rw-rw-r— 

1  105 

user 

7938  Jul  22  1986  PLOTMULT.FTN 

-rw-rw-r- 

1  105 

user 

4455  Mar  27  1986  PLOTR.FTN 

-rw-rw-r- 

1  105 

user 

6075  Sep  12  1986  PLOTR2.FTN 

-rw-rw-r— 

1  105 

user 

8910  Nov  17  1986  PLOTSIF.FTN 

-rw-rw-r- 

1  105 

user 

5832  Jul  8  1985  PLOTTER.FTN 

-rw-rw-r— 

1  105 

user 

6642Junl9  1985  PLOTTER2.FTN 

-rw-rw-r— 

1  105 

user 

27540  Jul  24  1984  POL  YFIT.FTN 

-rw-rw-r- 

1  105 

user 

567  Nov  5  1986READIT.FTN 

-rw-rw-r- 

1  105 

user 

88452  Mar  6  1986  REC50FD.FTN 

-rw-rw-r— 

1  105 

user 

53460  Oct  6  1986  RESTARFD.FTN 

-rw-rw-r— 

1  105 

user 

24786  Mar  1 1  1987  RESTART.FTN 

-rw-rw-r— 

1  105 

user 

810  May  13  1987  RESTART.INP 

-rw-rw-r— 

1  105 

user 

109026  Aug  10  1987  RETRACT.FTN 

-rw-rw-r— 

1  105 

user 

50706  Aug  10  1987  RETRACT.INP 

-rw-rw-r— 

1  105 

user 

5994  Aug  7  1984ROD.INP 

-rw-rw-r— 

1  105 

user 

494019  Oct  2  1986  RSSMCS.FTN 

-rw-rw-r— 

1  105 

user 

8829  Jul  15  1986  RUNFD.FTN 

-rw-rw-r— 

1  105 

user 

9639  Mar  22  1987  RUNHCS.CSS 

-rw-rw-r— 

1  105 

user 

10044  Apr  19  1985  RUNHCSA.CSS 

-rw-rw-r- 

1  105 

user 

9963  Jun  14  1987  RUNHCSAR.CSS 

-rw-rw-r— 

1  105 

user 

10044  Sep  18  1987  RUNHCSAT.CSS 

-rw-rw-r- 

1  105 

user 

9963  May  13  1987  RUNHCSCC.CSS 

-rw-rw-r— 

1  105 

user 

10125  Sep  3  1986RUNHCSM.CSS 

-rw-rw-r— 

1  105 

user 

6561  Mar  4  1987  RUNHCSO.CSS 

-rw-rw-r— 

1  105 

user 

9963  Apr  24  1987  RUNHCSR.CSS 

-rw-rw-r- 

1  105 

user 

9963  May  8  1987  RUNHCSR2.CSS 

-rw-rw-r- 

1  105 

user 

9963  Oct  11  1985  RUNHCSR3. CSS 

-rw-rw-r— 

1  105 

user 

10125  Nov  17  1986  RUNHCSRJ.CSS 

-rw-rw-r— 

1  105 

user 

9963  May  20  1987  RUNHCST.CSS 

-rw-rw-r— 

1  105 

user 

9963  May  3 1  1987  RUNHCSTT.CSS 
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-rw-rw-r- 

1  105 

user 

10125  Aug  4  1987RUNHTSM.CSS 

-rw-rw-r— 

1  105 

user 

10044  Dec  24  1986  RUNSSMS.CSS 

-rw-rw-r— 

1  105 

user 

10044  Sep  18  1987  RUNTEMP3.CSS 

-rw-rw-r~ 

1  105 

user 

89 10  Nov  17  1986SAFE.FTN 

-rw-rw-r- 

1  105 

user 

140940  Oct  6  1986SIM0.INP 

-rw-rw-r— 

1  105 

user 

151065  Jan  6  1987SIM1.INP 

-rw-rw-r-- 

1  105 

user 

796630  Dec  29  1986  SIM  1. OUT 

-rw-rw-r— 

1  105 

user 

151065  Dec  29  1986  SIMIANTM.INP 

-rw-rw-r-- 

1  105 

user 

3052520  Dec  30  1986  SIMIANTM.OUT 

-rw-rw-r-- 

1  105 

user 

77274  Dec  23  1986  SIMIFD.FTN 

-rw-rw-r- 

1  105 

user 

140940  Oct  31  1986SIM2.INP 

-rw-rw-r- 

1  105 

user 

567490  Dec  23  1986SIM2.0UT 

-rw-rw-r-- 

1  105 

user 

1 1 6964  Oct  3 1  1986  SIM2BFD.FTN 

-rw-nv-r- 

1  105 

user 

116964  Oct  31  1986  S1M2FD.FTN 

-rw-rw-r-- 

1  105 

user 

140940  Oct  6  1986  SIM3.INP 

-nv-rw-r-- 

1  105 

user 

70389  Oct  6  1986SIM3FD.FTN 

-rw-rw-r-- 

1  105 

user 

30537  Oct  2  1986  SIMFD.FTN 

-rw-rw-r- 

1  105 

user 

6399  Dec  31  1984  SINFD.FTN 

-rw-rw-r-- 

1  105 

user 

27297  Sep  3  1986  SINFDA.FTN 

-rw-rw-r-- 

1  105 

user 

98334  Oct  15  1985  SLED.INP 

-rw-rw-r-- 

1  105 

user 

160704  Oct  30  1985  SLEDFD.FTN 

-rw-rw-r— 

1  105 

user 

15471  Jul  6  1984  SL1DER.FTN 

-rw-rw-r- 

1  105 

user 

15552  Jul  6  1984  SLIDERA.FTN 

-rw-rw-r— 

1  105 

user 

60183  Jan  13  1987  SPECl.lNP 

-rw-nv-r~ 

1  105 

user 

165222  Jan  13  1987  SPEC  1. OUT 

-rw-rw-r— 

1  105 

user 

60183  Jan  13  1987  SPEC2.1NP 

-rw-rw-r— 

1  105 

user 

1163790  Jan  6  1987  SPEC2.0UT 

-rw-rw-r- 

1  105 

user 

60183  Jan  13  1987  SPEC3.INP 

-rw-rw-r— 

1  105 

user 

1163790  Jan  8  1987  SPEC3.0UT 

-rw-rw-r— 

1  105 

user 

60183  Jan  13  1987  SPEC4.INP 

-rw-rw-r— 

1  105 

user 

1163790  Jan  9  1987  SPEC4.0UT 

-rw-rw-r- 

1  105 

user 

60183  Jan  5  1987  SPEC5.INP 

-rw-rw-r— 

1  105 

user 

164552  Jan  9  1987  SPEC5.0UT 

-rw-rw-r— 

1  105 

user 

60183  Jan  5  1987  SPEC6.INP 

-rw-rw-r— 

1  105 

user 

12717  Aug  6  1987  SSM.INP 

-rw-rw-r— 

1  105 

user 

451848  Aug  6  1987SSM.OUT 

-rw-rw-r— 

1  105 

user 

13689  Aug  6  1987  SSM.PUN 

-rw-rw-r— 

1  105 

user 

5751  Apr  18  1985  SSMIDOF.FTN 

-rw-rw-r- 

1  105 

user 

5508  May  2  1985  SSMIDOFI.FTN 

-rw-rw-r- 

1  105 

user 

1620  May  20  1985  SSMIDOFI.INP 

-rw-rw-r— 

1  105 

user 

2106  May  31  1985  SSM2DOF.1NP 

-rw-rw-r— 

1  105 

user 

2106  Jun  6  1985  SSM2DOFA.INP 

-rw-rw-r— 

1  105 

user 

99387  Sep  1 1  1986  SSMACES.INP 

-rw-rw-r- 

1  105 

user 

53865  Aug  4  1987  SSMFD.FTN 

-rw-rw-r— 

1  105 

user 

257950  Aug  6  1987  SSMFD.LST 

-rw-rw-r— 

1  105 

user 

8181  May  24  1985  SSMGZ4.FTN 

-rw-rw-r- 

1  105 

user 

18549  May  16  1985  SSMPLOT.FTN 

-rw-rw-r— 

1  105 

user 

5670  Feb  12  1985  SSMSTEP.FTN 

-rw-rw-r— 

1  105 

user 

87885  May  15  1986  STANDARD.INP 

-rw-rw-r— 

1  105 

user 

10287  Dec  19  1986  STEP.CSS 

-rw-rw-r— 

1  105 

user 

43092  Dec  19  1986  STEP.FTN 

-rw-rw-r— 

1  105 

user 

147906  Dec  23  1986  STEP.INP 

-rw-rw-r— 

1  105 

user 

578344  Dec  23  1986  STEP.OUT 

-rw-rw-r— 

1  105 

user 

96309  Jul  12  1985  STRESS.INP 
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-rw-rw-r— 

1  105 

user 

18468  Aug  20 

1986  SUBTN.FTN 

-rw-rw-r-- 

1  105 

user 

16848  Aug  20 

1986  SUBTRACT.FTN 

-rw-rw-r-- 

1  105 

user 

6834  Aug  20 

1986  SUBTRACT.OUT 

-rw-rw-r- 

1  105 

user 

1215  Aug  18 

1986  SWITCH.FTN 

-rw-rw-r- 

1  105 

user 

810  Dec  7  1986TEMP.FTN 

-rw-rw-r-- 

1  105 

user 

7533  Feb  28 

1986  TENDOF.INP 

-rw-rw-r— 

1  105 

user 

230300  May  7 

1970  TESTREP.LAC 

-rw-rw-r~ 

1  105 

user 

2997  Feb  28 

1986  THREEDOF.INP 

-rw-rw-r— 

1  105 

user 

255672  Feb  28 

1986  THREEDOF.OUT 

-rw-rw-r- 

1  105 

user 

2673  May  9 

1985  TRAP.FTN 

-rw-rw-r— 

1  105 

user 

2916Junl8 

1985  TRAPT.FTN 

-rw-rw-r- 

1  105 

user 

324  Oct  2  1986  TRIGGER.FTN 

-rw-rw-r— 

1  105 

user 

2592  May  9 

1985  TRYTRAP.FTN 

-rw-rw-r~ 

1  105 

user 

2349  Feb  28 

1986  TWODOF.INP 

-rw-rw-r«- 

1  105 

user 

216142  Feb  28 

1986TWODOF.OUT 

-rw-rw-r- 

1  105 

user 

77586  Aug  27 

1986  VISCOID.FTN 

-rw-rw-r— 

1  105 

user 

35721  Aug  10 

1987  WHAM3.FTN 

-rw-rw-r— 

1  105 

user 

42120  May  15 

1985  WHAMA.FTN 

-rw-rw-r- 

1  105 

user 

42444  May  20 

1985  WHAMDLT.FTN 

-rw-rw-r— 

1  105 

user 

42363  Nov  26 

1984  WHAMII.FTN 

-rw-rw-r— 

1  105 

user 

42444  Sep  25 

1985  WHAMRS2.FTN 

-rw-rw-r— 

1  105 

user 

42930  Feb  4 

1987  WHAMRSJ.FTN 

-rw-rw-r- 

1  105 

user 

42363  Mar  11 

1985  WHAMSM.FTN 

-rw-rw-r~ 

1  105 

user 

42768  Feb  26 

1986  WHAMSSM.FTN 

-rw-rw-r— 

1  root 

sys 

0  Aug  16  14:18  dirOOl 
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Archived  Files  in  Directory  HSM  002 


total  2191 

drwxr-xr-x  2  105  user  8192  Aug  16  14:19 ./ 
drwxrwxrwx  17  root  sys  2560  Jul  21  21:46  ../ 


-rw-rw-r— 

1  105 

user 

486  Feb  25 

1985EL1ACC.INP 

-rw-rw-r-- 

1  105 

user 

486  Feb  25 

1985  ELIVEL.INP 

-rw-rw-r— 

1  105 

user 

486  Feb  25 

1985  EL3VEL.INP 

-rw-rw-r- 

1  105 

user 

486  Feb  25 

1985  EL5ACC.rNP 

-rw-rw-r— 

1  105 

user 

486  Feb  25 

1985  EL5VEL.INP 

-rw-rw-r— 

1  105 

user 

486  Feb  25 

1985  EL7ACC.INP 

-rw-rw-r— 

1  105 

user 

486  Feb  25 

1985  EL7VEL.INP 

-rw-rw-r— 

1  105 

user 

486  Feb  25 

1985  EL9ACC.INP 

-rw-rw-r— 

1  105 

user 

486  Feb  25 

1985  EL9VEL.INP 

-rw-rw-r- 

1  105 

user 

3078  Dec  H 

^  1984  FRCRILS.FTN 

-rw-rw-r- 

1  105 

user 

3321  Dec  7 

1984  FRCRTC.FTN 

-rw-rw-r— 

1  105 

user 

3321  Jan  29 

1985  FRCRTC20.FTN 

-rw-rw-r— 

1  105 

user 

3402  Jan  9 

1985  FRCRTC2D.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  24 

1985  FREAS1.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jul  10 

1985  FREASIO.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jul  10 

1985  FREASll.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  25 

1985  FREAS2.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  26 

1985  FREAS2B.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  25 

1985  FREAS3.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  25 

1985  FREAS4.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  26 

1985  FREAS4B.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  27 

1985  FREAS5.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  28 

1985  FREAS6.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jul  1 

1985  FREAS7.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jul  3 

1985  FREAS8.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jul  3 

1985  FREAS9.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jul  11 

1985  FREASL.FTN 

-rw-rw-r— 

I  105 

user 

486  Oct  15 

1984  FRFDSIN.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  21 

1985  FRFRCl.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  21 

1985  FRFRCIO.FTN 

-rw-rw-r— 

1  105 

user 

1539  Nov  2'; 

'  1984  FRSK2.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  24 

1985  FRSK207.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  14 

1985  FRSK20H.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  18 

1985  FRSK20I.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  18 

1985  FRSK20J.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  20 

1985  FRSIC20K.FTN 

-rw-rw-r— 

1  105 

user 

4617  Jun  24 

1985  FRSK20L.FTN 

-rw-rw-r— 

1  105 

user 

4617  Jun  21 

1985  FRSK20M.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  4 

1985  FRSK23.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  21 

1985  FRSK236.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  21 

1985  FRSK237.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  21 

1985  FRSK238.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  5 

1985  FRSK23B.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jim  6 

1985  FRSK23C.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  11 

1985  FRSK23D.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  1 1 

1985  FRSK23E.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  12 

1985  FRSK23F.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  14 

1985  FRSK23H.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  4 

1985  FRSK24.FTN 

-rw-rw-r— 

1  105 

user 

3564Junl2  1985  FRSK24F.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  13  1985  FRSK24G.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  4  1985  FRSK25.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  21  1985  FRSK256.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  21  1985  FRSK257.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  21  1985  FRSK258.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  14  1985  FRSK25H.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  4  1985  FRSK26.FTN 

-rw-rw-r-- 

1  105 

user 

3564  Jun  21  1985  FRSK267.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  12  1985  FRSK26F.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  14  1985  FRSK27H.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  12  1985  FRSK28F.FTN 

-rw-rw-r- 

1  105 

user 

3078  Jan  9  1985  FRSK2A.FTN 

-rw-rw-r— 

1  105 

user 

3078  Jan  23  1985  FRSK2B.FTN 

-rw-rw-r- 

1  105 

user 

3078  May  1  1985  FRSK2C.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  4  1985  FRSK30.FTN 

-rw-rw-r- 

1  105 

user 

3564  Jun  12  1985  FRSK30F.FTN 

-rw-rw-r— 

1  105 

user 

3564  Jun  14  1985  FRSK30H.FTN 

-rw-rw-r- 

1  105 

user 

3078  Jun  5  1985  FRSKFRC.FTN 

-rw-rw-r— 

1  105 

user 

3483  Jun  14  1985  FRSKFRCl.FTN 

-rw-rw-r- 

1  105 

user 

3483  Jun  14  1985  FRSKFRC2.FTN 

-rw-rw-r— 

1  105 

user 

4617  Jun  20  1985  FRSKFRC3.001 

-rw-rw-r— 

1  105 

user 

4617  Jun  21  1985  FRSKFRC3.FTN 

-rw-rw-r- 

1  105 

user 

4617  Jun  21  1985  FRSKFRC4.FTN 

-rw-rw-r— 

1  105 

user 

3078  Jun  6  1985  FRSKFRCB.FTN 

-rw-rw-r— 

1  105 

user 

4131  May  24  1985  HCSIASA.INP 

-rw-rw-r- 

1  105 

user 

486  May  28  1985  HCSl  ASA.PUN 

-rw-rw-r— 

1  105 

user 

4131May20  1985  HCSICGA.INP 

-rw-rw-r- 

1  105 

user 

486  May  21  1985  HCSICGA.PUN 

-rw-rw-r— 

1  105 

user 

4131  May  20  1985  HCSl CGP.INP 

-rw-rw-r— 

1  105 

user 

486  May  21  1985  HCSICGP.PUN 

-rw-rw-r— 

1  105 

user 

486  May  24  1985  HCS20G40.FTN 

-rw-rw-r— 

1  105 

user 

4131  Jun  3  1985  HCS2CGA.INP 

-rw-rw-r— 

1  105 

user 

4131  May  21  1985  HCS2CGP.rNP 

-rw-rw-r— 

1  105 

user 

486  May  23  1985  HCS2CGP.PUN 

-rw-rw-r- 

1  105 

user 

4131  May  19  1985  HCS3CGA.INP 

-rw-rw-r— 

1  105 

user 

486  May  21  1985  HCS3CGA.PUN 

-rw-rw-r— 

1  105 

user 

4131  May  21  1985  HCS3CGP.INP 

-rw-rw-r— 

1  105 

user 

486  May  24  1985  HCS3CGP.PUN 

-rw-rw-r- 

1  105 

user 

2025  Jul  1  1985HCS685.FTN 

-rw-rw-r— 

1  105 

user 

4131  Sep  25  1985  HCS685A1.INP 

-rw-rw-r- 

1  105 

user 

486  Sep  26  1985  HCS685A1.PUN 

-rw-rw-r— 

1  105 

user 

972  Sep  28  1985  HCS685A2.PUN 

-rw-rw-r— 

1  105 

user 

972  Oct  1  1985  HCS685A3.PUN 

-rw-rw-r— 

1  105 

user 

486  Oct  11  1985  HCS685A4.PUN 

-rw-rw-r- 

1  105 

user 

486  Oct  3  1985  HCS685A5.PUN 

-rw-rw-r- 

1  105 

user 

486  Oct  1 1  1985  HCS685R1.INP 

-rw-rw-r- 

1  105 

user 

486  Oct  12  1985  HCS685R1.PUN 

-rw-rw-r— 

1  105 

user 

486  Oct  1 1  1985  HCS685R2.INP 

-rw-rw-r— 

1  105 

user 

486  Oct  13  1985  HCS685R2.PUN 

-rw-rw-r— 

1  105 

user 

4131  Mar  22  1985  HCSGZIKA.INP 

-rw-rw-r- 

1  105 

user 

486  Mar  22  1985  HCSGZIKA.PUN 

-rw-rw-r- 

1  105 

user 

486  Mar  26  1985  HCSGZIKB.PUN 

-rw-rw-r— 

1  105 

user 

4131  Apr  4  1985HCSGZ1KG,INP 
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-rw-rw-r- 

1  105 

user 

486  Mar  28  1985  HCSGZIKG.PUN 

-rw-rw-r~ 

1  105 

user 

4131  Apr  1  1985  HCSGZIKH.INP 

-rw-rw-r— 

1  105 

user 

486  Apr  2  1985  HCSGZ1KH.PUN 

-rw-rw-r- 

1  105 

user 

4050  Jan  28  1985  HCSGZISP.INP 

-rw-rw-r— 

1  105 

user 

4131  Mar  8  1985  HCSGZ2KB.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  15  1985  HCSGZ2KB.PUN 

-rw-rw-r— 

1  105 

user 

4131  Mar  1 1  1985  HCSGZ2KC.INP 

-rw-rw-r- 

1  105 

user 

486  Mar  15  1985  HCSGZ2KC.PUN 

-rw-rw-r-“ 

1  105 

user 

4131  Mar  13  1985  HCSGZ2KD.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  18  1985  HCSGZ2KD.PUN 

-rw-rw-r— 

1  105 

user 

4131  Mar  14  1985  HCSGZ2KE.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  18  1985  HCSGZ2KE.PUN 

-rw-rw-r- 

1  105 

user 

4131  Mar  15  1985  HCSGZ2KF.INP 

-rw-rw-r- 

1  105 

user 

486  Mar  20  1985  HCSGZ2KF.PUN 

-rw-rw-r- 

1  105 

user 

4131  Mar  22  1985  HCSGZ2KG.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  25  1985  HCSGZ2KG.PUN 

-rw-rw-r- 

1  105 

user 

4050  Dec  13  1984  HCSGZ2SP.INP 

-rw-rw-r- 

1  105 

user 

4131  Mar  22  1985  HCSGZ3KA.INP 

-rw-rw-r- 

1  105 

user 

486  Mar  26  1985  HCSGZ3KA.PUN 

-rw-rw-r— 

1  105 

user 

4131Jan  18  1985  HCSGZ3SP.INP 

-rw-rw-r- 

1  105 

user 

4131  Mar  6  1985  HCSGZ42K.INP 

-rw-rw-r— 

1  105 

user 

486  May  21  1985  HCSGZ42K.PUN 

-rw-rw-r— 

1  105 

user 

4 1 3 1  Apr  29  1985  HCSGZ4R.FTN 

-rw-rw-r— 

1  105 

user 

4131  May  24  1985  HCSGZ4SP.INP 

-rw-rw-r— 

1  105 

user 

486  May  28  1985  HCSGZ4SP.PUN 

-rw-rw-r— 

1  105 

user 

4131  May  24  1985  HCSGZ5SP.INP 

-rw-rw-r— 

1  105 

user 

486  May  17  1985  HCSGZ5SP.PUN 

-rw-rw-r— 

1  105 

user 

486  May  13  1985  HCSMCC.PUN 

-rw-rw-r- 

1  105 

user 

20736  Mar  11  1985  HCSMREF.FTN 

-rw-rw-r— 

1  105 

user 

20736  May  7  1985  HCSMRST.FTN 

-rw-rw-r— 

1  105 

user 

21222  May  7  1985  HCSMRSTO.FTN 

-rw-rw-r— 

1  105 

user 

486  Apr  8  1985  HCSRSTAl. PUN 

-rw-rw-r— 

1  105 

user 

486  Apr  8  1985  HCSRSTA2.PUN 

-rw-rw-r— 

1  105 

user 

486  Apr  8  1985  HCSRSTBl. PUN 

-rw-rw-r— 

1  105 

user 

972  Apr  8  1985  HCSRSTB2.PUN 

-rw-rw-r— 

1  105 

user 

486  Jun  12  1985  HCSSTA1R.PUN 

-rw-rw-r— 

1  105 

user 

486  Jun  12  1985  HCSSTA2R.PUN 

-rw-rw-r— 

1  105 

user 

162  Jul  29  1985  HCSSTA3R.INP 

-rw-rw-r— 

1  105 

user 

486  Jul  30  1985  HCSSTA3R.PUN 

-rw-rw-r— 

1  105 

user 

4131  Jun  3  1985  HCSSTDA.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  3  1985  HCSSTDA.PUN 

-rw-rw-r- 

1  105 

user 

4131  Jun  4  1985HCSSTDA1.INP 

-rw-rw-r- 

1  105 

user 

486  Jun  12  1985  HCSSTDAl.PUN 

-rw-rw-r- 

1  105 

user 

4131  Jun  7  1985  HCSSTDA2.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  12  1985  HCSSTDA2.PUN 

-rw-rw-r— 

1  105 

user 

2592  Jul  26  1985  HCSSTDA3.FTN 

-rw-rw-r— 

1  105 

user 

413 1  Jul  26  1985  HCSSTDA3.INP 

-rw-rw-r— 

1  105 

user 

486  Jul  29  1985  HCSSTDA3.PUN 

-rw-rw-r— 

1  105 

user 

4131  Jun  18  1985  HCSTEST.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  19  1985  HCSTEST.PUN 

-rw-rw-r— 

1  105 

user 

4131  Jun  14  1985  HCSTESTl.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  16  1985  HCSTESTl.PUN 

-rw-rw-r- 

1  105 

user 

243  Jun  19  1985  HCSTESTR.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  19  1985  HCSTESTR.PUN 

-rw-rw-r— 

1  105 

user 

486  Jun  19 

1985  HCSTSTR2.INP 

-rw-rw-r- 

1  105 

user 

486  Jun  25 

1985  HCSTSTR2.PUN 

-rw-rw-r- 

1  105 

user 

2025  Jan  17 

1985  HS3SK1B.INP 

-rw-rw-r— 

1  105 

user 

2025  Apr  26 

1985  HS3SK1C.INP 

-rw-rw-r— 

1  105 

user 

2025  Jan  21 

1985  HS3SK3B.INP 

-rw-rw-r- 

1  105 

user 

2025  Jan  23 

1985  HS3SK5B.rNP 

-rw-rw-r-- 

1  105 

user 

2025  Apr  29 

1985  HS3SK5C.INP 

-rw-rw-r- 

1  105 

user 

2025  Jan  22 

1985  HS3SK7B.INP 

-rw-rw-r— 

1  105 

user 

2025  Apr  29 

1985  HS3SK7C.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  JADJUST.FTN 

-rw-rw-r- 

1  105 

user 

1539  Mar  12 

1985  JBABALPH.FTN 

-rw-nv-r- 

1  105 

user 

486  Mar  12 

1985  JBABFREE.FTN 

-rw-rw-r— 

1  105 

user 

1539  Mar  12 

1985  JBABOON.DTA 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  JBOONTST.CSS 

-rw-rw-r- 

1  105 

user 

9581  Mar  12 

1985  JC. 

-rw-rw-r- 

1  105 

user 

505  Mar  12 

1985  JCODETST.CSS 

-rw-rw-r— 

1  105 

user 

324  Mar  12 

1985  JDOFTEST.DTA 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  JDOFTEST.FTN 

-rw-rw-r- 

1  105 

user 

486  Mar  12 

1985  JDRECTRY. 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  KFLEXl.AIN 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  KFLEX2.AIN 

-rw-rw-r- 

1  105 

user 

1539  Mar  12 

1985  KHS.FTN 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  KHSl.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  KHS2.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  KHS3.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  KHS4.INP 

-rw-rw-r— 

1  105 

user 

402  Mar  12 

1985  KLIST.COU 

-rw-rw-r- 

1  105 

user 

402  Mar  12 

1985  KOUTPUT.l 

-rw-rw-r- 

1  105 

user 

13400  Mar  12 

1  1985  KOUTPUT.AOU 

-rw-rw-r— 

1  105 

user 

486  Mar  12 

1985  KVIEW.VIN 

-rw-rw-r— 

1  105 

user 

1974  Mar  12 

1985  KVIEW.VPL 

-rw-rw-r- 

1  105 

user 

2592  Mar  26 

1985  LDELO.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  27 

1985  LDELO.PUN 

-rw-rw-r- 

1  105 

user 

2592  Mar  26 

1985  LDEL0R.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  27 

1985  LDEL0R.PUN 

-rw-rw-r— 

1  105 

user 

972  Mar  26 

1985  LDELOROT.INP 

-rw-rw-r— 

1  105 

user 

2592  Mar  27 

1985  LDELIO.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  28 

1985  LDELIO.PUN 

-rw-rw-r— 

1  105 

user 

2592  Mar  27 

1985  LDEL15.INP 

-rw-rw-r— 

1  105 

user 

486  Mar  28 

1985  LDEL15.PUN 

-rw-rw-r- 

1  105 

user 

2592  Mar  27 

1985  LDEL20.INP 

-rw-rw-r- 

1  105 

user 

486  Mar  28 

1985  LDEL20.PUN 

-rw-rw-r— 

1  105 

user 

486  Mar  23 

1985  LDEL20A.PUN 

-rw-rw-r- 

1  105 

user 

.486  Mar  23 

1985  LDEL20B.PUN 

-rw-rw-r— 

1  105 

user 

2592  Mar  27 

1985  LDEL5.rNP 

-rw-rw-r— 

1  105 

user 

486  Mar  28 

1985  LDEL5.PUN 

-rw-rw-r- 

1  105 

user 

2592  Oct  23 

1985  ORGCS4.1NP 

-rw-rw-r— 

1  105 

user 

486  Oct  24 

1985  ORGCS4.PUN 

-rw-rw-r— 

1  105 

user 

2592  Oct  23 

1985  ORGCS6.rNP 

-rw-rw-r- 

1  105 

user 

486  Oct  24 

1985  ORGCS6.PUN 

-rw-rw-r— 

1  105 

user 

2592  Oct  23 

1985  ORGCS8.INP 

-rw-rw-r— 

1  105 

user 

486  Oct  24 

1985  ORGCS8.PUN 

-rw-rw-r— 

1  105 

user 

2592  Oct  17 

1985  ORGCSC.INP 

-rw-rw-r— 

1  105 

user 

486  Oct  18 

1985  ORGCSC.PUN 
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-rw-rw-r— 

1  105 

user 

2592  Jun  14  1985  SK20G50B.rNP 

-rw-rw-r— 

1  105 

user 

2592  Jun  19  1985  SK20G50C.INP 

-rw-rw-r-- 

1  105 

user 

2592  Jun  21  1985  SK20G50D.INP 

-rw-rw-r— 

1  105 

user 

2592  Jun  4  1985  SK23G50.INP 

-rw-rw-r-- 

1  105 

user 

2592  Jun  21  1985  SK23G506.INP 

-rw-rw-r— 

1  105 

user 

2592  Jun  21  1985  SK23G507.INP 

-rw-rw-r— 

1  105 

user 

2592  Jun  21  1985  SK23G508.INP 

-rw-rw-r— 

1  105 

user 

2592  Jun  5  1985  SK23G50B.INP 

-rw-rw-r- 

1  105 

user 

2592  Jun  4  1985  SK24G50.INP 

-rw-rw-r— 

1  105 

user 

2592  Jun  12  1985  SK24G50B.INP 

-rw-rw-r— 

1  105 

user 

2592  Jun  13  1985  SK24G50C.INP 

-rw-rw-r— 

1  105 

user 

2592  Jun  4  1985  SK25G50.INP 

-rw-rw-r- 

1  105 

user 

2592  Jun  21  1985  SK25G506.INP 

-rw-rw-r— 

1  105 

user 

2592  Jun  21  1985  SK25G507.INP 

-rw-rw-r- 

1  105 

user 

2592  Jun  21  1985  SK25G508.INP 

-rw-rw-r- 

1  105 

user 

2592  Jun  14  1985  SK25G50B.1NP 

-rw-rw-r- 

1  105 

user 

2592  Jun  4  1985  SK26G50.1NP 

-rw-rw-r- 

1  105 

user 

2592  Jun  21  1985  SK26G507.1NP 

-rw-rw-r— 

1  105 

user 

2592  Jun  12  1985  SK26G50B.1NP 

-rw-rw-r— 

1  105 

user 

2592  Jun  14  1985  SK27G50B.1NP 

-rw-rw-r— 

1  105 

user 

2592  Jun  3  1985  SK28G50.1NP 

-rw-rw-r- 

1  105 

user 

2592  Jun  12  1985  SK28G50B.1NP 

-rw-rw-r— 

1  105 

user 

2592  May  3 1  1985  SK30G50.1NP 

-rw-rw-r— 

1  105 

user 

2592  Jun  14  1985  SK30G50B.1NP 

-rw-rw-r— 

1  105 

user 

2592  Jun  24  1985  SKEASl.lNP 

-rw-rw-r— 

1  105 

user 

2592  Jul  10  1985  SKEASIO.INP 

-rw-rw-r— 

1  105 

user 

486  Jul  10  1985  SKEASIO.PUN 

-rw-rw-r- 

1  105 

user 

2592  Jul  10  1985  SKEASll.lNP 

-rw-rw-r— 

1  105 

user 

486  Jul  10  1985  SKEASl  1.PUN 

-rw-rw-r— 

1  105 

user 

2592  Aug  13  1985  SKEASl 3. INP 

-rw-rw-r— 

1  105 

user 

2592  Aug  13  1985  SKEAS15.INP 

-rw-rw-r- 

1  105 

user 

2592  Aug  13  1985  SKEAS17.INP 

-rw-rw-r— 

1  105 

user 

486  Oct  17  1985  SKEAS17.PUN 

-rw-rw-r- 

1  105 

user 

2592  Jun  25  1985  SKEAS2.INP 

-rw-rw-r- 

1  105 

user 

486  Jun  25  1985  SKEAS2.PUN 

-rw-rw-r- 

1  105 

user 

2592  Jun  26  1985  SKEAS2B.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  26  1985  SKEAS2B.PUN 

-rw-rw-r— 

1  105 

user 

2592  Jun  25  1985  SKEAS3. INP 

-rw-rw-r— 

1  105 

user 

486  Jun  26  1985  SKEAS3.PUN 

-rw-rw-r— 

1  105 

user 

2592  Jun  26  1985  SKEAS4.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  26  1985  SKEAS4.PUN 

-rw-rw-r— 

1  105 

user 

2592  Jun  26  1985  SKEAS4B.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  26  1985  SKEAS4B.PUN 

-rw-rw-r— 

1  105 

user 

2592  Jun  27  1985  SKEAS5.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  27  1985  SKEAS5.PUN 

-rw-rw-r— 

1  105 

user 

2592  Jun  28  1985  SKEAS6.INP 

-rw-rw-r- 

1  105 

user 

486  Jun  28  1985  SKEAS6.PUN 

-rw-rw-r- 

1  105 

user 

2592  Jul  1  1985  SKEAS7.INP 

-rw-rw-r— 

1  105 

user 

486  Jul  1  1985  SKEAS7.PUN 

-rw-rw-r— 

1  105 

user 

2592  Jul  2  1985  SKEAS8.INP 

-rw-rw-r— 

1  105 

user 

486  Jul  3  1985  SKEAS8.PUN 

-rw-rw-r- 

1  105 

user 

2592  Jul  2  1985  SKEAS9.INP 

-rw-rw-r- 

1  105 

user 

486  Jul  4  1985  SKEAS9.PUN 

-rw-rw-r— 

1  105 

user 

2592  Jul  11  1985  SKEASL.INP 
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-rw-rw-r- 

1  105 

user 

486  Jul  1 1 

1985  SKEASL.PUN 

-rw-rw-r- 

1  105 

user 

2592  Jul  15 

1985  SKEASL2.rNP 

-rw-rw-r- 

1  105 

user 

2592  Jul  16 

1985  SKEASL3.INP 

-rw-rw-r-- 

1  105 

user 

2592  Jul  16 

1985  SKEASL4.INP 

-rw-rw-r- 

1  105 

user 

2592  Jun  5 

1985  SKFRC.INP 

-rw-rw-r-- 

1  105 

user 

2592  Jun21 

1985  SKFRCl.INP 

-rw-rw-r— 

1  105 

user 

2592  Jun  21 

1985  SKFRCIO.INP 

-rw-rw-r- 

1  105 

user 

2592  Jun  14 

1985  SKFRC2.INP 

-rw-rw-r- 

1  105 

user 

2592  Jun  20 

1985  SKFRCJ.INP 

-rw-rw-r- 

1  105 

user 

2592  Jun  21 

1985  SKFRC4.INP 

-rw-rw-r~ 

1  105 

user 

3078  Feb  5 

1985  SLIDACC.FTN 

-rw-rw-r— 

1  105 

user 

3078  Feb  5 

1985  SLIDVEL.FTN 

-rw-rw-r- 

1  105 

user 

972  Dec  5 

1984  SSMGZ250.INP 

-rw-rw-r-- 

1  105 

user 

972  Dec  10 

1984  SSMGZ350.INP 

-rw-rw-r-- 

1  105 

user 

2592  Jan  2 

1985  TC340B.INP 

-rw-rw-r- 

1  105 

user 

2592  Mar  19  1985TC35.rNP 

-rw-rw-r-- 

1  105 

user 

2592  Mar  19  1985TC40.INP 

-rw-rw-r— 

1  105 

user 

2592  Feb  8 

1985  TC550B.rNP 

-rw-rw-r- 

1  105 

user 

2592  Jan  2 

1985  TC650B.INP 

-rw-rw-r— 

1  105 

user 

2592  Jan  2 

1985  TC750B.INP 

-rw-rw-r-- 

1  105 

user 

486  Nov  15 

1984  TDHCSGYl.FTN 

-rw-rw-r~ 

1  105 

user 

4131  Nov  15  1984  TDHCSGYl.INP 

-rw-nv-r- 

1  105 

user 

486  Nov  26 

1984  TDHCSGY2.FTN 

-rw-rw-r- 

1  105 

user 

413 1  Nov  26  1984  TDHCSGY2.INP 

-rw-rw-r— 

1  105 

user 

486  Nov  15 

1984  TDHCSGYM.FTN 

-rw-rw-r- 

1  105 

user 

486  Nov  21 

1984  TDHCSGZl.FTN 

-rw-rw-r— 

1  105 

user 

3807  Nov  23 

1984  TDHCSGZl.INP 

-rw-rw-r- 

1  105 

user 

486  Nov  21 

1984  TDHCSGZ2.FTN 

-rw-rw-r- 

1  105 

user 

3807  Nov  21 

1984  TDHCSGZ2.INP 

-rw-rw-r— 

1  105 

user 

486  Apr  29 

1985  TDHCSGZ4.FTN 

-rw-rw-r— 

1  105 

user 

762  May  13 

1985  TDHCSGZ4.LST 

-rw-rw-r— 

1  105 

user 

486  Apr  18 

1985  TDSSMGZl.FTN 

-rw-rw-r~ 

1  105 

user 

486  Oct  19 

1984  TDSSMGZl.INP 

-rw-rw-r-- 

1  105 

user 

486  Oct  24 

1984  TDSSMGZ2.FTN 

-rw-rw-r— 

1  105 

user 

972  Nov  20 

1984  TDSSMGZ2.INP 

-rw-rw-r— 

1  105 

user 

972  Dec  10 

1984  TDSSMGZ3.FTN 

-rw-rw-r— 

1  105 

user 

486  Mar  19 

1985  TDSSMGZ4.FTN 

-rw-rw-r— 

1  105 

user 

972  Mar  5 

1985  TDSSMGZ4.INP 

-rw-rw-r- 

1  105 

user 

2592  Jun  14 

1985  TEST l.FTN 

-rw-rw-r— 

1  105 

user 

4131  Jun  14 

1985  TESTl.INP 

-rw-rw-r- 

1  105 

user 

486  Jun  18 

1985  TESTl.PUN 

-rw-rw-r— 

1  105 

user 

4131  Jun  28 

1985  TEST12CG.INP 

-rw-rw-r— 

1  105 

user 

486  Jul  2  1985  TEST12CG.PUN 

-rw-rw-r— 

1  105 

user 

162  Jun  17 

1985  TESTIR.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  18 

1985  TEST1R.PUN 

-rw-rw-r— 

1  105 

user 

2592  Jun  18 

1985  TEST2.FTN 

-rw-rw-r- 

1  105 

user 

4131  Jun  14 

1985  TEST2.INP 

-rw-rw-r— 

1  105 

user 

486  Jun  19 

1985  TEST2.PUN 

-rw-rw-r— 

1  105 

user 

162  Jun  17 

1985  TEST2R.INP 

-rw-rw-r- 

1  105 

user 

486  Jun  18 

1985  TEST2R.PUN 

-rw-rw-r- 

1  105 

user 

2592  Jun  19 

1985  TEST3.FTN 

-rw-rw-r— 

1  105 

user 

4131  Jun  21 

1985  TEST3.INP 

-rw-rw-r- 

1  105 

user 

486  Jun  23 

1985  TEST3.PUN 

-rw-rw-r— 

1  105 

user 

162  Jun  21 

1985  TEST3R.INP 
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-rw-rw-r~ 

1  105 

user 

486Jun23  1985  TEST3R.PUN 

-rw-rw-r— 

1  105 

user 

2592Jun27  1985  TEST4.FTN 

-rw-rw-r-- 

1  105 

user 

4131Jun27  1985  TEST4.INP 

-rw-rw-r— 

1  105 

user 

486  Jul  2  1985  TEST4.PUN 

-rw-rw-r— 

1  105 

user 

413  lJun  28  1985  TEST42CG.INP 

-rw-rw-r-- 

1  105 

user 

486  Jul  2  1985  TEST42CG.PUN 

-rw-rw-r— 

1  105 

user 

162Jun27  1985  TEST4R.INP 

-rw-rw-r— 

1  105 

user 

486  Jul  2  1985  TEST4R.PUN 

-rw-rw-r— 

1  105 

user 

2025  Mar  29  1985  WHAMA.FTN 

-rw-rw-r— 

1  105 

user 

2025  Apr  18  1985  WHAMASM.FTN 

-rw-rw-r- 

1  105 

user 

2025  May  7  1985  WHAMRST.FTN 

-rw-rw-r— 

1  105 

user 

20736  May  13  1985  XALMOST.FTN 

-rw-rw-r— 

1  105 

user 

20736  May  13  1985  XALMOSTC.FTN 

-rw-rw-r- 

1  105 

user 

20736  May  13  1985  XALMOSTS.FTN 

-rw-rw-r— 

1  105 

user 

486  May  13  1985  XHCSGYl.FTN 

-rw-rw-r- 

1  105 

user 

4131  May  13  1985  XHCSGYl.INP 

-rw-rw-r- 

1  105 

user 

486  May  13  1985  XHCSGY2.FTN 

-rw-rw-r— 

1  105 

user 

4131  May  13  1985  XHCSGY2.INP 

-rw-rw-r— 

1  105 

user 

1474  Aug  8  1985  YZllDEG.DTA 

-rw-rw-r— 

1  105 

user 

1474  Jul  29  1985  YZ5DEG.DTA 

-rw-rw-r— 

1  105 

user 

2592  Jul  30  1985  YZ5DEG.INP 

-rw-rw-r— 

1  105 

user 

1474  Jul  29  1985  YZ6DEG.DTA 

-rw-rw-r— 

1  105 

user 

2592  Jul  29  1985  YZ6DEG.INP 

-rw-rw-r— 

1  105 

user 

1474  Jul  29  1985  YZ7DEG.DTA 

-rw-rw-r- 

1  105 

user 

2592  Jul  30  1985  YZ7DEG.INP 

-rw-rw-r— 

1  105 

user 

402  Aug  8  1985  YZASllDE.DTA 

-rw-rw-r— 

1  105 

user 

402  Jul  30  1985  YZAS5DEG.DTA 

-rw-rw-r— 

1  105 

user 

402  Jul  30  1985  YZAS6DEG.DTA 

-rw-rw-r— 

1  105 

user 

402  Jul  30  1985  YZAS7DEG.DTA 

-rw-rw-r— 

1  105 

user 

402  Aug  8  1985  YZASLl.DTA 

-rw-rw-r— 

1  105 

user 

402  Aug  8  1985  YZASL2.DTA 

-rw-rw-r- 

1  105 

user 

486  Jul  30  1985  YZASORG.DTA 

-rw-rw-r— 

1  105 

user 

486  Aug  12  1985  YZASROT.FTN 

-rw-rw-r— 

1  105 

user 

402  Aug  8  1985  YZASTIO.DTA 

-rw-rw-r— 

1  105 

user 

402  Aug  8  1985  YZASTll.DTA 

-rw-rw-r— 

1  105 

user 

402  Aug  8  1985  YZAST12.DTA 

-rw-rw-r— 

1  105 

user 

402  Aug  12  1985  YZAST7.DTA 

-rw-rw-r— 

1  105 

user 

402  Aug  9  1985  YZAST8.DTA 

-rw-rw-r- 

1  105 

user 

402  Aug  9  1985  YZAST9.DTA 

-rw-rw-r— 

1  105 

user 

1474  Aug  8  1985YZL1.DTA 

-rw-rw-r— 

1  105 

user 

1474  Aug  8  1985  YZL2.DTA 

-rw-rw-r— 

1  105 

user 

1474  Sep  3  1985  YZL2C.DTA 

-rw-rw-r— 

1  105 

user 

1474  Sep  3  1985  YZL2CF.DTA 

-rw-rw-r— 

1  105 

user 

402  Aug  19  1985  YZL3B.DTA 

-rw-rw-r— 

1  105 

user 

1474  Sep  3  1985  YZL3C.DTA 

-rw-rw-r— 

1  105 

user 

1474  Sep  3  1985  YZL3CF.DTA 

-rw-rw-r— 

1  105 

user 

1474  Sep  3  1985  YZL3CFF.DTA 

-rw-rw-r— 

1  105 

user 

972  Aug  26  1985YZL4.DTA 

-rw-rw-r— 

1  105 

user 

1474  Aug  26  1985  YZL4CF.DTA 

-rw-rw-r— 

1  105 

user 

972  Jul  30  1985  YZORG.DTA 

-rw-rw-r— 

1  105 

user 

486  Sep  3  1985  YZROTATE.FTN 

-rw-rw-r— 

1  105 

user 

1474  Aug  8  1985  YZTIO.DTA 

-rw-rw-r— 

1  105 

user 

1474  Aug  27  1985  YZTIOC.DTA 

-rw-rw-r- 

1  105 

user 

1474  Aug  27  1985  YZTIOCF.DTA 
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-rw-rw-r-- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r-" 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r-- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r~ 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r-- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r-- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r~ 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r-- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r~ 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r-- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r-- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r~ 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r-- 

1  105 

-rw-rw-r— 

1  105 

-rw-nv-r- 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r— 

1  105 

-rw-rw-r- 

1  105 

-rw-rw-r- 

1  105 

user  1474  Aug  8 

user  1474  Aug  27 

user  1474  Aug  27 

user  1474  Aug  8 

user  1474  Sep  3 

user  1474  Sep  3 

user  1474  Aug  29 

user  1474  Aug  29 

user  1474  Aug  29 

user  1474  Aug  29 

user  1474  Aug  29 

user  1474  Aug  29 

user  1474  Aug  29 

user  1474  Aug  29 

user  1474  Aug  28 

user  1474  Aug  28 

user  1474  Aug  12 

user  1474  Aug  28 

user  1474  Aug  28 

user  1474  Aug  9 

user  402  Aug  19 

user  1474  Aug  28 

user  1474  Aug  28 

user  1474  Aug  8 

user  3564  Sep  17 

user  2592  Sep  10 

user  486  Sep  1 1 

user  2592  Oct  23 

user  486  Oct  28 

user  2592  Oct  23 

user  486  Oct  28 

user  2592  Oct  23 

user  486  Oct  29 

user  2592  Oct  17 

user  486  Oct  22 

user  2592  Sep  1 1 

user  486  Sep  12 

user  2592  Sep  17 

user  1539  Sep  18 

user  2592  Oct  4 

user  1539  Oct  7 

user  2592  Oct  4 

user  1539  Oct  7 

user  2592  Oct  10 

user  972  Oct  1 1 

user  2592  Oct  4 

user  1539  Oct  7 

user  2592  Oct  16 

user  972  Oct  23 

user  2592  Oct  1 1 

user  972  Oct  15 

user  2592  Oct  10 

user  2592  Oct  8 

user  2592  Oct  4 


1985  YZTll.DTA 
1985  YZTllC.DTA 
1985  YZTllCF.DTA 
1985  YZT12.DTA 
1985  YZT12C.DTA 
1985  YZT12CF.DTA 
1985  YZTIC.DTA 
1985  YZT1CF.DTA 
1985  YZT2C.DTA 
1985  YZT2CF.DTA 
1985  YZT3C.DTA 
1985  YZT3CF.DTA 
1985  YZT5C.DTA 
1985  YZT5CF.DTA 
1985  YZT6C.DTA 
1985  YZT6CF.DTA 
1985  YZT7.DTA 
1985  YZT7C.DTA 
1985  YZT7CF.DTA 
1985  YZT8.DTA 
1985  YZT8B.DTA 
1985  YZT8C.DTA 
1985  YZT8CF.DTA 
1985  YZT9.DTA 
1985  Z.FTN 
1985Z1.INP 
1985  Zl. PUN 
1985  Z1CS5.INP 
1985  Z1CS5. PUN 
1985  Z1CS7.INP 
1985Z1CS7.PUN 
1985  ZlCS9.rNP 
1985  Z1CS9.PUN 
1985  ZICSC.INP 
1985Z1CSC.PUN 
1985Z2.INP 
1985  Z2.PUN 
1985  Z3.INP 
1985  Z3.PUN 
1985  Z3CSA.INP 
1985  Z3CSA.PUN 
1985  Z3CSB.INP 
1985  Z3CSB.PUN 
1985  Z3CSBN1.INP 
1985Z3CSBN1.PUN 
1985  Z3CSC.INP 
1985  Z3CSC.PUN 
1985  Z3CSC2.INP 
1985  Z3CSC2.PUN 
1985  Z3CSCN1.INP 
1985  Z3CSCN1. PUN 
1985  Z3CSCN2.INP 
1985  Z3CSCN3.INP 
1985  Z3CSD.INP 
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-rw-rw-r— 

1  105 

user 

-rw-rw-r~ 

1  105 

user 

-rw-rw-r-- 

1  105 

user 

-rw-rw-r-- 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r- 

1  105 

user 

-rw-rw-r- 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r- 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r- 

1  105 

user 

-rw-rw-r- 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r- 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r— 

1  105 

user 

-rw-rw-r— 

1  root 

sys 

1539  Oct  7  1985Z3CSD.PUN 
2592  Oct  9  1985  Z3CSE.INP 
972  Oct  11  1985Z3CSE.PUN 
486  Oct  11  1985Z3CSET.PUN 
2592  Oct  4  1985Z3RH1.INP 
1539  Oct  7  1985Z3RH1.PUN 
2592  Oct  4  1985Z3RH3.INP 
1539  Oct  7  1985  Z3RH3.PUN 
2592  Oct  4  1985Z3RH5.INP 
1539  Oct  7  1985Z3RH5.PUN 
2592  Nov  1  1985Z3SB1.INP 
1539  Nov  4  1985Z3SB1.PUN 
2592  Nov  1  1985  Z3SB2.INP 
1539  Nov  4  1985  Z3SB2.PUN 
486  Oct  15  1985Z3T.PUN 
486  Oct  15  1985Z3T2.PUN 
2592  Nov  5  1985  Z4.INP 
1539  Nov  6  1985Z4.PUN 
2592  Jan  6  1986ZAT1.1NP 
1539  Jan  7  1986  ZATl. PUN 
3564  Oct  4  1985ZCS.FTN 
3564  Oct  16  1985ZCS2.FTN 
3564  Nov  1  1985ZSB2.FTN 
0  Aug  16  14:19  dir002 
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